in reply to Split a string to remove quotes and parentheses

split is most useful when dealing with a list of items. In this case you only have one (test123), so you should look to regexps instead. The following snippets will do: 
$string =~ s/^\("(.*)"\)$/$1/;

[download]
# Faster than first.
$string =~ s/^\("//;
$string =~ s/"\)$//;

[download]
# Same as previous, less redundant.
s/^\("//, s/"\)$// for $string;

[download]

Update: I didn't know the braces needed to be replaced. I'm fixed my snippets. Two following two snippet cann't be fixed: 

# You didn't mention an escape mechanism, so I'm
# assuming there's no other quotes in the string.
$string =~ s/"//g;

[download]
# I didn't say it was impossible.
$string = (split '"', $string)[1];

[download]

In Section Seekers of Perl Wisdom