Select Code to Download

$ perl -MO=Deparse blurp.pl # normalize Code with B::Deparse
$x[12] = $x[123] = $x = $_ = '';
print "match one\n" if /${x}[123]/; # array fail, characterclass win
print "match two\n" if /$x[12]/;
blurp.pl syntax OK