This is copied from Perl. See http://stackoverflow.com/questions/161872/hidden-features-of...
my @lines = <DATA>;
for (@lines) {
print if /bad/;
}
__DATA__
some good data
some bad data
more good data
more good data