#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11160494
use warnings;
$SIG{__WARN__} = sub { die @_ };

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