my @cols = unpack ("A4 A4 A4 A6 A4 A5", $_);