$regex = qr:(??{print "look ma, no rm -rf /\n"}):;
$captures = (() = ""=~/(|$regex)/) - 1;