$string="a_sample_string";
#...
my $disposable = $string; # put it in a disposable variable
$disposable =~ s/_/ /g; # substitution on that instead
$disposable =~ /^(.*)$/; # then put it in $1