sub foo {$_[0] =~ s/foo/bar/; print $_[0]} # bad
sub bar {my $temp = $_[0]; $temp =~ s/foo/bar/; print $temp} # better