Slow down boy!!!
Increase your speed.
Slow down boy!! BIG HEAD!
Increase your speed.
####
my $count = 0;
Open ( FILE, $reader) || die “Cannot open, $!\n”;
while ()
{
Chomp;
foreach($_ =~ /\/){$count++;}
print $_, “\n” if /\/…/\<\/tag$count\>/;
@ray = ();
push(@ray, /\/…/\<\/tag$count\>/);
}