use Regexp::Common qw(net);

print VPNOUTFILE
  if s/$RE{net}{IPv4}/xxx.xxx.xxx.xxx/g;