$line =~ s/\s/ /g;