Select Code to Download

#!/usr/bin/perl -w
use strict;
...
foreach (@array) {
    $i++;
    print "$i$_$i";}

stuff****more
stuff####this shouldnt 
show up

C:\Perl>perl test.pl
1stuff12more
stuff23this shouldnt
show up3