my $string = "a_sample_string";
my $re = q[(?{ tr|_| | })(.*)]; 
# or my $re = some CGI parameter extraction
$string =~ m/$re/;
print $1;