Help for this page
while( m/REGEX/g ) { ... # use groups only if match successful }
while( m/REGEX/g ) { last unless $2; ... }