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