Select Code to Download

Q:\>perl -le "($x = 'foo') =~ /.(.)/g; print $1; $x = 'bar'; print $1"
o
a

$ perl -MData::Dumper -we'$Data::Dumper::Useqq = 1;
($x = "fou") =~ /.(..)/g; print Dumper $1; $x = "b"; print Dumper $1;
...
$VAR1 = "ou";
$VAR1 = "a\0";