Razbira se, 4e substr() bi bilo po-byrzo ot regex (makar 4e ne se goni byrzinata w powe4e programi na Perl a efektiwenostta.. no wse pak congrats). Ne moga da ti kaja zasto ti se bozi towa, zastoto _WSE OSTE_ ne sym polu4il koda ti. Ste byde dowolen ako go widq. inet_ntoa(pack "N", 1044990994); ste ti wyrne moeto IP (62.73.76.18) ako imash use Socket;
Ex:
$ perl -e 'use Socket;print unpack("N",inet_aton("127.0.0.1"));'
2130706433

$ perl -e 'use Socket;print inet_ntoa(pack "N", "2130706433");'
127.0.0.1

Ima weroqtnost da e wytreshnoto ti IP. Makar 4e sym wijdal 4e BitchX uspqwat nqkak da si komunikirat daje i mashinata da ima wytreshno IP, moje bi prasta obraten chat ili pyk si komunikirat po sywsem drug na4in ?? Ne moga da kaja wyprosa si otprati kym tqh