use strict;
use Test::More 'no_plan';

sub weirdex {
        local $_ = shift;
        tr/A-Za-z//cd;
        tr/A-Za-z//s;
        /[aeiou]/g;
        substr($_, pos()) =~ s/[aeiou]+//g;
        return $_;
}

my %test = (
        'giulienk'           => 'gilnk',
        'larry wall'         => 'larywl',
        'etheroskedasticity' => 'ethrskdstcty',
);

my ($input, $result);

is(weirdex($input), $result, "$input") while ($input, $result) = each %test;

__END__
ok 1 - etheroskedasticity
ok 2 - larry wall
ok 3 - giulienk
1..3