When you say "pull all vowels" and "get vowels" what are you hoping to end up with? Do you want all the vowels returned to you in some structure or do you want the original string back without vowels?
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;