c:\@Work\Perl\monks>perl -wMstrict -le
"my $emptystring = '\"\"';
 print '+ match' if $emptystring =~ /^\"((?:[^^\"\\]|\\[\"\\])+)\"$/;
 print '* match' if $emptystring =~ /^\"((?:[^^\"\\]|\\[\"\\])*)\"$/;
"
* match