parseIP.pl

#!/usr/bin/perl

my $ifconfig = exec('ifconfig eth0 | grep inet | awk \'{print $2}\'');

$ifconfig =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/;

print $ifconfig;