in reply to regular expression to retrieve text within single quotes

lol... :)
so, here's yet another one: 
my $newstring = '';
while ($string =~ /(\'|\")(.*?)\1/) {
   $newstring .= $2;
}

[download]
language is a virus from outer space.

In Section Seekers of Perl Wisdom