Help for this page
my $x = f(); my $y = $x;
my $y = my $x = f();
my $copy = $str; $copy =~ s/\\/\\\\/g;
( my $copy = $str ) =~ s/\\/\\\\/g;