11 lines
132 B
Perl
11 lines
132 B
Perl
|
while(<DATA>){
|
||
|
|
print unless /N/; # Print line if it doesn't match N
|
||
|
|
}
|
||
|
|
__DATA__
|
||
|
|
A
|
||
|
|
B
|
||
|
|
I
|
||
|
|
N
|
||
|
|
J
|
||
|
|
K
|