This is a module for finding IP addresses in plain text.

NetAddr::IP::Find exports one function, find_ipaddrs(). It
works very similar to URI::Find's find_uris() or
Email::Find's find_emails().

$num_ipaddrs_found = find_ipaddrs($text, \&callback);

WWW: http://search.cpan.org/dist/NetAddr-IP-Find