Jeff Pinyan wrote: > > >> 4==grep $_<256,/\G(\d+)(?:\.|$)/g; > >> 4==grep $_<256,/\G(\d+)(?:\.|\z)/g; > > That doesn't work. "1.2.3.100000.4". Ah, good catch. > > 1x4==join"",map$_<256,/\G(\d+)(?:\.|\z)/g; Is that supposed to work or is it merely demonstrating what's wrong with mine? To work that needs to be something like 1010101==join 0,map$_<256,/\G(\d+)(?:\.|\z)/g; -- 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