Re: [FWP] Re: Receipts

[igp_list2@tesco.net]

On Mon, 11 Sep 2000 at 13:24:02 +0100, Leon Brocard wrote:
> Philip Newton sent the following bits through the ether:
> > or FWP
> Well, here's as good a start as any:

> % perl -ne 'print if $_=~/(.)\1(.)\2(.)\3/' /usr/dict/words  
> bookkeeper
> bookkeepers
> bookkeeping

    perl -ne '/((.)\2){3}/&&print' /usr/dict/words
(I wondered if this would work, and it surprised me a little that it
did.)

Ian

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe