On Sat, Mar 31, 2001 at 02:18:13PM +0200, abigail@foad.org wrote: > Here's a JAPH that uses double characters most of the time. (I didn't > double whitespace outside of strings, such trivialities can be easily > added). Perhaps someone can improve it. > > > $$aa = > qq ((pprriinntt qq ""JJuusstt aannootthheerr PPeerrll HHaacckkeerr""));; > $$aa =~ s((((((((((((.)))))))))))((\11)))($11)gg;; > $$aa =~ s((((((((((((....................................))))))))))))(($11))ee;; One obvious improvement is to change (.) to (..??) .robin. -- "It really depends on the architraves." --Harl ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe