#!perl

use strict;

use warnings;

my @array;

@array = <DATA>;

print (grep { !/^DontPrintMe$/} @array);

__DATA__
print me!
no, print me!
DontPrintMe
Look out for open manholes
Do print me!