in reply to Split a string to remove quotes and parentheses

Radical look: 
$s = '("test123")';
$s =~ s/\W//g;
print "$s\n"

[download]

In Section Seekers of Perl Wisdom