print map { something } <$fh>;

##</code><code>##

print something while <$fh>;