$str="hi\"perl\"monks";
$str =~ /.*\"(.*?)\".*/;
print "$1\n";