my $line = <$FH> ;

##</code><code>##

my $line = readline $FH ;