#!/usr/bin/perl use LWP::Simple; if ((get "http://internet.yandex.ru/") =~ /(IPv4: ((\d+)\.){3}\d+)/) { print($&, "\n"); }