Help for this page
for my $line ( map { ... } ... <DATA>) { print $line; }
print map { ... } ... ... } <DATA>;