open FILE, "+< test.cfg" || die "Cannot open file\n" ;
while ($line = <FILE>) {
  if ($line =~ /newyork/ ) {
              $line =~ s/1536000/7878787878/;
              print " the line is $line";

   }
}
close FILE;