http://qs321.pair.com?node_id=596270


in reply to Develop a Tree

You might check out Net::Traceroute .
s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;