"; while (my $line = <$IN>) { $ret .= "
$f
\n"; $ret .= "
\n"; }