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

##</code><code>##

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