my $string = "There once was a doggy in the window. I went into the st
+ore and inquired about the price, the doggy was too nice to ever thin
+k twice, so now I have a doggy to care for.";

$string =~ s/[aeiou]//gi;
[download]