The /g is what the OP wanted. But for the pattern, even better, use a well-crafted regex for IP addresses:

use Regexp::Common qw(net);

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