http://qs321.pair.com?node_id=774368


in reply to perl script

perl -lne '/gi\|(\d+)\|/ && push @sofar,$1}{$,=",";print @sofar' <yourfile>

citromatik

In Section Seekers of Perl Wisdom