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
|