http://qs1969.pair.com?node_id=458215


in reply to Re: Understanding transformation sorts (ST, GRT), the details
in thread Understanding transformation sorts (ST, GRT), the details

map { /(\d[.\d]+\d)/; inet_aton($1) . $_ }
Oops! That duplicates a value twice if the next line doesn't have a good match. Perhaps you meant:
map { /(\d[.\d]+\d)/ ? inet_aton($1) . $_ : () }

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.