in reply to Combining while statements

I really wish you would have:
  1. given us a sample of the data file you are working with
  2. shown us what you really want out of that data
That being said, if the file is small enough, you could just slurp it into a scalar, run a generic regex on that scalar and capture the results into an array: 
open TMPFILE,'page.html' or die "Can't open: $!";
my $data = do {local $/;<TMPFILE>};
my @data = $data =~ /(\d{3})word/g;
print "$_\n" for @data;

[download]
hope this helps :)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom