Select Code to Download

for( my $i=0; $i < scalar(@vars); $i++ ){
    unless( $i % $LIMIT ){
...
    }
    print &munge_var($vars[$i]) , " ";
}

______________________________
s!!password!;y?sordid?binger?;
y.paw.mrk.;;print chr 0x5b ;;;
print;print chr(0x5b+0x2);;;;;