Select Code to Download

$URL =~ s/&/&/g;

# numeric entities
...

# 'decimal' IP
$URL =~ s/(\d{5,})/join('.', unpack('C4', pack('N', $1)))/ge;

0000   h   t   t   p   :   /   /   w   w   w   .   d   n   s 020 002
0020 005 005 005 020 002 020 005 020 020 020 005 005 020 002 020 020
0040 002 020 020 002   m   a   g   i   c   s   i   t   e   .   n   e
...
0420   @   6   4   .   1   7   6   .   1   1   3   .   8   8   @ 037
0440 036   &   #   ! 036   # 037   $   #  \n
0452