On Fri, Mar 23, 2001 at 07:58:55PM +0200, Ilmari Karonen wrote: > > Okay, can anyone here shorten this JAPH? Par is 113. There's a trivial > 7 stroke saving if you omit the final newline, but I'd rather keep it. > > $|=@_=$_="\rJust another Perl hacker,\n";chop;s/${\(a..z)[rand 26]}/#/ig&&(@_=($_,@_))while/\w/;sleep print for@_ Three strokes less: $|=@_=($_="\rJust another Perl hacker,",$/);s/${\(a..z)[rand 26]}/#/ig&&(@_=($_,@_))while/\w/;sleep print for@_ The behaviour is slightly different; it waits an additional second before printing the final new line. Abigail ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe