perl -M"5;@ARGV=glob shift" -lnE "last if /__DATA__/;$c++ unless /^$|^\s*#/}{say $c" "./t/*.t" #### perl -M"0;eval{require 6},@}=(40,35,0,32)" -e "print map{chr(ord($_)-shift@})}(split'',$@)[12,19,0,23]" # linux quoting: perl -M'0;eval{require 6},@}=(40,35,0,32)' -e 'print map{chr(ord($_)-shift@})}(split"",$@)[12,19,0,23]'