my $pos = tell FH;
$line = <FH>;
seek FH, $pos, 0;
# we will now read the same line if we do $line = <FH>;