Select Code to Download

use strict;
use warnings;
...
my $count;
$string =~ /$_/i and $count++ for qw/ a e i o u y /;
print "They're all there!\n" if $count == 6;