Select Code to Download

my @main = ( "<UL>\n", "<!--begin-->\n", "</UL>\n" );

...
    for( $j=0; $j<=@main; $j++ ) 
    {
        print STDERR "Loop! j is $j main[j] is $main[$j]  main[j+2] is
+ $main[$j+2]\n";

        
        if( $main[$j] =~ /<!--top: (.*)-->/ ) 
...
    print STDERR "Done with loop\n";
    return 0;
}