Select Code to Download

my $x = f();
my $y = $x;

my $y = my $x = f();

my $copy = $str;
$copy =~ s/\\/\\\\/g;

( my $copy = $str ) =~ s/\\/\\\\/g;