return grep s/^FOR_PRINT://, <FILE>;
[download]

But even that can be trivially written as:

return map /^FOR_PRINT(.*)/s, <FILE>;
[download]

And thus not lose 5 style points for altering $_, which in my all-too-often experience spits out an "attempt to modify read-only value" when I least expect it.

-- Randal L. Schwartz, Perl hacker