#! perl -slw use strict; my @bits; my $count = 0; while( ) { ++$count and print join'|', @bits if @bits = m[ ^ (.{3}) \s (.*?) \s+ (\S+) \s+ (\S+) \s+ (\S+) \s+ (\S+) \s+ (\S+) \s+ (\S+) $ ]x; } print $count; __DATA__ BAZ 'N3'' N 0 ? ? ? 1 BAZ 'N4'' N 0 ? ? ? 1 BAZ 'C8'' C 0 ? ? ? 1 BAZ C9 C 0 ? ? ? 1 BAZ ZN ZN 0 ? ? ? 0 BAZ HN1 H 0 ? ? ? 1 BAZ 1HN2 H 0 ? ? ? 0 BAZ 2HN2 H 0 ? ? ? 0 001 F11 F 0 ? ? ? 1 001 C11 C 0 ? ? ? 1 001 O 1 1 O 0 ? ? ? 1 001 N12 N 0 ? ? ? 1 001 C12 C 0 ? ? ? 1 001 C13 C 0 ? ? ? 1 001 C 14 C 0 ? ? ? 1 001 C15 C 0 ? ? ? 1 001 C16 C 0 ? ? ? 1 BCB CBA C 0 ? ? ? 1 BCB C GA C 0 ? ? ? 1 BCB O1A O 0 ? ? ? 1 BCB O2A O 0 ? ? ? 1 BCB 'N B' N 0 ? ? ? 1 BCB C1B C 0 ? ? ? 1 BCB C2B C 0 ? ? ? 1 BCB C3B C 0 ? ? ? 1 BCB C4B C 0 ? ? ? 1 BCB CMB C 0 ? ? ? 1 #### P:\test>test1 BAZ|'N3''|N|0|?|?|?|1 BAZ|'N4''|N|0|?|?|?|1 BAZ|'C8''|C|0|?|?|?|1 BAZ|C9|C|0|?|?|?|1 BAZ|ZN|ZN|0|?|?|?|0 BAZ|HN1|H|0|?|?|?|1 BAZ|1HN2|H|0|?|?|?|0 BAZ|2HN2|H|0|?|?|?|0 001|F11|F|0|?|?|?|1 001|C11|C|0|?|?|?|1 001|O 1 1|O|0|?|?|?|1 001|N12|N|0|?|?|?|1 001|C12|C|0|?|?|?|1 001|C13|C|0|?|?|?|1 001|C 14|C|0|?|?|?|1 001|C15|C|0|?|?|?|1 001|C16|C|0|?|?|?|1 BCB|CBA|C|0|?|?|?|1 BCB|C GA|C|0|?|?|?|1 BCB|O1A|O|0|?|?|?|1 BCB|O2A|O|0|?|?|?|1 BCB|'N B'|N|0|?|?|?|1 BCB|C1B|C|0|?|?|?|1 BCB|C2B|C|0|?|?|?|1 BCB|C3B|C|0|?|?|?|1 BCB|C4B|C|0|?|?|?|1 BCB|CMB|C|0|?|?|?|1 27