Select Code to Download

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

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