Perl Regex: replace and assign

#! perl -w$/ = "/n";

$fred = "this is justification";($tom = $fred) =~ s/this/that/;print $fred;print $tom;