if (/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/){
  s/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/xxx.xxx.xxx.xxx/g;
  print VPNOUTFILE "$_";
}