my $quoted_str = q{"Eat Potatoes Daily"};
   $quoted_str =~ s< ^" ([^"]+) "$ >  < $1 >x
print "Unquoted: $quoted_str\n";