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