Select Code to Download

my $x = "foo";
my $y = 'abc $x def\\/';
...
    $_[0] =~ s#(\\\\|\\/)#substr($1, 1, 1)#eg;
}

 
    my $result = "abc $var def";