my $s = 'the quick brown fox jumps over the lazy dog';
my $vowels = () = $s =~ m[[aeiou]]g;
print "There are $vowels vowels in '$s'";
There are 11 vowels in 'the quick brown fox jumps over the lazy dog'
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon