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

##</code><code>##

my $quoted_str = q{"Eat Potatoes Daily"};
  # Remove surrounding quotes, an obfu way:
    for (my $n = 1, my $ip = '^', my $tp = ''; 3 > $n; $tp = '$')
    {
	$ip = '' if $n += $quoted_str =~ s<$ip"$tp><>;
    }
print "Unquoted: $quoted_str\n";