if (/phn_a/ ... /1ord/) {
     print OUT $_;      }