in reply to accumulating rex-exp matches in an array
You can use the array returned by a global match, like so:
my @list; while (<INFILE>) { push @list, m/(AAA.\d)/g; }
-- Mike
--
just,my${.02}
In Section
Seekers of Perl Wisdom