in reply to Need a better way to count input lines
I'd probably do it this way.
#! perl -slw use strict; until( eof( DATA ) ) { no warnings 'uninitialized'; printf '%-7.7s %-7.7s ', <DATA> =~ m[ ([^,]+) , \s* (.+) $]x; printf '%7.7s %7.7s %7.7s ', <DATA> =~ m[ ([^/]+) / (?:(\S+)\s+)? +(\S+) $]x; printf "%s\n", <DATA> =~ m[^(\S+)]; } __DATA__ Alanon, Bart 5590/EL ---- O'Lewis, John. ----/--- -- john Le Much,Bo Jo 3406/165 NS ed@a.nl Abe-Jen, Mar-Jo 3421/164D NS cbest
Output
P:\test>351465 Alanon Bart 5590 EL ---- O'Lewis John. ---- --- -- john Le Much Bo Jo 3406 165 NS ed@a.nl Abe-Jen Mar-Jo 3421 164D NS cbest
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham"Think for yourself!" - Abigail
In Section
Seekers of Perl Wisdom