if (defined (my $previous_line = <>)) {
    while (my $current_line = <>) {
        do_regular_thing_with $previous_line;
        $previous_line = $current_line;
    }
    do_special_thing_with $previous_line;
}