my $newstring = '';
while ($string =~ /(\'|\")(.*?)\1/) {
   $newstring .= $2;
}