Select Code to Download

print chg("word", qr/(\d)/);   # print "nope"
"2" =~ /(2)/;
...
    $_[0] =~ $_[1];
    return $1 ? "yes\n" : "nope\n";
}