print $string =~ s/_/ /g;

##</code><code>##

$matches = $string =~ s/_/ /g;
print $matches;