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

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