Select Code to Download

$_ = "same old show";

...
foreach(/(\w)(\w)/g) {
    print "foreach: $_\n";
}

$_ = "abc";

...
foreach(/((.))/g) {
    print "foreach: $_\n";
}