$\ = "\n";
$, = ",";
$str = "a string";
print \$str;
$str =~ m/(?:(.)(?{print "address of \$_ is ".\$_.";";print '$_ = '.$_.";";print "\$str = ".$str.";";print "\$1 = $1\n";$_="abc"}))+/;
print $str;