`/sbin/ifconfig $if` =~ /inet addr:((\d{1,3}\.?){4})/m; $ipaddr = $1; [download]
In reply to IP address! by Anonymous Monk