Help for this page

Select Code to Download

Select or download this

my $string = "a_sample_string";
$string =~ m/(?{ tr|_| | })(.*)/;
print $1;