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