#!/usr/bin/perl
use warnings;
use strict;
use experimental qw{ regex_sets };

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

##</code><code>##

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