Rick Klement wrote > New shot, shorter (but *much* slower) is: > > perl -le'/^a*.z*$/&&print for aaaa..zzzz' > > (If 80 is par, what's 41 called?) No glory here, the hard work's already been done, but I've knocked off a stroke. perl -le'map/^a*.z*$/&&print,aaaa..zzzz' Alistair > -------------------------------------------------------------------- > Alistair McGlinchy, alistair.mcglinchy@marks-and-spencer.com > Sizing and Performance, Central IT ext. 5012, ph +44 0 171-268-5012 > Marks and Spencer (Stockley Park) fx +44 0 171-268-5721 > 1SW, 3 Longwalk Rd, Stockley Park, Uxbridge UB11 1AW, United Kingdom > __________________________________________________________________________________________ Registered Office: Marks and Spencer plc Michael House, Baker Street, London, W1A 1DN Registered No. 214436 in England and Wales. Telephone (020) 7935 4422 Facsimile (020) 7487 2670 www.marks-and-spencer.com This e-mail is Confidential. If you received it by mistake, please let us know and then delete it from your system; you should not copy, disclose, or distribute its contents to anyone nor act in reliance on this e-mail, as this is prohibited and may be unlawful. ___________________________________________________________________________________________ ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe