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