use strict; use warnings; my %c; while () { chomp; %c = (); $c{$_}++ for m/([aeiou])/g; print "$_ contains " . (scalar keys %c) . " different vowels.\n"; } __DATA__ alpha beta gamma delta sequoia