use Net::IPv4Addr qw( :all );
if ($ip = ipv4_checkip($str)) {
      # do something
}