my $x = f(); my $y = $x; #### my $y = my $x = f(); #### my $copy = $str; $copy =~ s/\\/\\\\/g; #### ( my $copy = $str ) =~ s/\\/\\\\/g;