#! perl -w$/ = "/n"; $fred = "this is justification";($tom = $fred) =~ s/this/that/;print $fred;print $tom;