in reply to pattern matching

You need to use /g:

while (/req=(\d+)/g) {
   print OUT ("$1\n");
}

[download]

Replies are listed 'Best First'.
Re^2: pattern matching
by Anonymous Monk on Jun 27, 2005 at 14:48 UTC
    thanks for that, works fine cheers for the quick reponse
[reply]

In Section Seekers of Perl Wisdom