use Regexp::Common;
    s/($RE{net}{IPv4})/$hash{$1}/g;