Select Code to Download

my $i = 3;                             # from line 4 ...
while ($i < @lines - 2) {              # ... until last but 3
    if ($lines[$i] =~ m!<MYTAG></MYTAG>!) {
...
        $i++;
    }
}