Select Code to Download

#!/usr/bin/perl

...

my @match = grep /(?=[^aeiou])[a-z]/, map chr, 0 .. 255;
print "match = @match\n";

match = b c d f g h j k l m n p q r s t v w x y z