use NetAddr::IP::Find;

$content = "this is valid IP 202.155.22.3";
find_ipaddrs($content, sub {
             my ($a)= @_;
             print $a, "\n";
           });