my  ($IP_addr)=$content=~m/(\d+\.\d+\.\d+\.\d+)/;

##</code><code>##

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