Select Code to Download

perl -le '$_ = "\n"; print /^$/'
1

#        1         2         3         4         5         6
#23456789012345678901234567890123456789012345678901234567890123456789
map{$n=$o=$_;for$c(@_){$n+=s/$c//}/^$/&&push@{$w[$n]},$o}<D>;@{pop@w}

#!/usr/bin/perl -wT
use strict;
...

print "Patternmatch    = $patternmatch\n";     # <==  prints 1
print "Underscorematch = $underscorematch\n";  # <==  prints 0