Select Code to Download

<tag1>
    <fast>
...
        Increase your speed.<p>
    </slow>
</tag2>

my $count = 0;
Open ( FILE, $reader) || die “Cannot open, $!\n”;
...
@ray = ();
push(@ray, /\<tag$count\>/…/\<\/tag$count\>/);
}