abigail@foad.org wrote: > > Yeah. And if we are allowed to ignore whitespace, there is: > > ##s > s(())((pprriinntt qq ""JJuusstt aannootthheerr PPeerrll HHaacckkeerr""));; > ##s > s((((((((((((..??)))))))))))((\11)))($11)gg;; > ##s > s((((((((((((....................................))))))))))))(($11))ee;; You can replace the \11 with this: ##s s(()){{pprriinntt qq ""JJuusstt aannootthheerr PPeerrll HHaacckkeerr""}};; ##s s((((((((((((..??)))))))))))((??{{;;$11}})))($11)gg;; ##s s((((((((((((....................................))))))))))))(($11))ee;; Not really any better, but now finding a good replacement for $11 would go a long way. -- Rick Delaney rick.delaney@home.com ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe