Select Code to Download

    my $delete  = join '','a'..'z'; # remove all lower case letters
    my $exclude = 'aeiou';          # exluding vowels
...
    $_ = 'Just Another Perl Hacker';
    s/(?:[$delete](?<![$exclude]))+//g;
    print;

    my $delete  = join '','a'..'z'; # remove all lower case letters
    my $exclude = 'aeiou';
...
    $_ = 'Just Another Perl Hacker';
    s/[$delete]+//g;
    print;