Help for this page
# input phn .. .. # 1ord
if (/phn_a/ ... /1ord/) { print OUT $_; }
$nLines = 5 if ( /1ord$/ ); print OUT if $nLines-- > 0;