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/;
  print VPNOUTFILE "$_";
}