In article <ak9d2i$ba1$1@post.home.lunix>, perl-golf@ton.iguana.be (Ton Hospel) writes: > In article <3D68324F.A1AE5434@pacbell.net>, > Rick Klement <rklement@pacbell.net> writes: >> Just because I've never used tr///s before, I thought I'd try it: >> >> -p $a=$_;$_=lc;length$\>y/a-z/22233344455566677778889/s|/../ or$\=$a}{ >> > Save a bit more like this: (hard newline) > -ap $_=lc;length$\>y/a-z/22233344455566677778889/s|/../ or$\="@F\n"}{ slightly better: -p grep length$\>y/a-z/22233344455566677778889/s|/../,lc or$\=$_}{Thread Previous | Thread Next