use Socket;

# ...

if ($line =~ /\b(\d{1,3}(?:\d{1,3}){3}\b/)
{
      if (my $in_addr = inet_aton($1))
      {
             if ($name = gethostbyname($in_addr, AF_INET))
             {
                     # ...
             }
      }
}