$line =~ s/\s+/ /g;     # replace more than one space with one space
$line =~ s/ /:/ for (1, 2); # replace the first two spcs with a colon

#- does not work if there's only one space - $line =~ s/ (\S+) /:$1:/;