my $buffer = <FH>;

my $line;
while(<FH>) {
    $buffer .= $line = $_;

    # ..
    # ..

    $buffer = $line;
}