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