my (@columns) = unpack("A5 A7 A3 A9", $line);