print OUT unless (/phn_a/ .. /1ord/);

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
  print unless (/phn/ .. /1ord/);
}

__DATA__
black
# input phn
blue
red
green
# 1ord
yellow
white