Парсинг ip с 2ip на perl?

my ($ip) = $page_content =~ m|<span>\s*Ваш IP адрес:\s*</span>.*?<big.*?>((?:\d{1,3}\.){3}\d{1,3})</big>|ism;

perl -Mojo -E 'say g("http://2ip.ru/")->dom("#d_clip_button")->text'

#!/usr/bin/env perl

# Включаем варнинги и ужесточение синтаксиса
use strict;
use warnings;

# Включаем библиотеку для работы с http
use LWP::Simple;

# Качаем страницу, если не удалось пркращаем работу
my $page = get('http://2ip.ru/') or die "Can't get page!";

# Парсим IP ргуляркой если не удалось прекращаем работу
my ($ip) = ($page =~ m!(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})!) or die "Can't pars IP!";

# Выводим IP
print 'You IP: '.$ip."\n";