my $buffer = q{};
while(<F>) {
    $buffer .= $_;
    if (multiple line) {
        next;
    } else {
        #process;
        $buffer = q{};
    }
}