$line =~ s/\s+/ /g; $line =~ s/ /:/ for (1,2);