my $flag = 0;
while (<FILE>) {
    $flag = 1 if (/<!-- Begin -->/);
    $flag = 0 if (/<!-- End -->/);

    process_line($_) if ($flag);
}