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