... while () { chomp; # strip record separator @in_data = split(/ +/, $_); ...