while(<>){
    if ( /Some Field/ ... /Yet Another/ ) {
        push (@array, $_);
        #do something with the info...
    }
}