Just for the fun of it, here's an approach using lvalues:

  substr($line, 12) =~ s/ /_/g;
[download]

It substitutes the replacement into the relevant part of the string.

Hope this helps, -gjb-