use the dl code link, as the nelines after __END__ matter!
update: thanks to blakem, I added ord to correctly solve this "puzzle", d'oh!

#!/usr/bin/perl -l

# use dl code, important

print while <DATA>;
print for ord 'f'>>'o'..$.;


__END__
I am
smelling
like
a rose
that
somebody
gave me
on my
birthday
deathbed!
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"