Re^2: A regex BR variable dead in following line/command

> Also, using $2 as a loop condition smells a bit fishy

Indeed, the idiomatic expression is rather

 
while( m/REGEX/g ) {
    ... # use groups only if match successful 
}
[download]

The only reason to check $2 separately, is to make sure it's not false ( "", 0, undef, etc )

this can be done with

while( m/REGEX/g ) {
    last unless $2;
    ...  
}
[download]

tho I doubt the OP is aware of all those false cases.

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^2: A regex BR variable dead in following line/command Select or Download Code