my $phrase = "This is a test, \"using quotes of 'two different' types.\"";
$phrase =~ s/[^\s*\w*]//g;
print $phrase;