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