use Regexp::Common qw /net/;
my  ($IP_addr)= $content=~ /$RE{net}{IPv4}/ ;