while () { chomp; print join(";",split (/\s+/,$_)),"\n"; }