Select Code to Download

my $file = '/path/to/file.txt';
open(IN,"<$file") || die $!;
read IN, my $html, -s $file;
close(IN);
$html =~ s/<!-- Begin -->(.*?)<!-- End -->/$1/s;

my $flag = 0;
while (<FILE>) {
...

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