print "$f-", substr ($s => length +(("$f" ^ "$s") =~ /^(\x00*)/) [0]), + "\n"; [download]
In reply to Re: Re: eliding number ranges by Anonymous Monk in thread eliding number ranges by qq