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