in reply to strip multiple spaces

split takes pretty robust regular expressions. Use the + quantifier to mean "at least one space": split(/\s+/,$line);