#! /usr/bin/perl @args=qw(wget -q -O todaysip http://www.showmyip.com); system (@args); open (SMIP,"todaysip"); while (){ $line=$_; if ($line=~/^\\(.*)$/){ scrape($line); }} sub scrape{ $ip=$_; $ip=~/((\d*)\.(\d*)\.(\d*)\.(\d*))/; print "$1\n"; } close(SMIP); system ("rm todaysip");