string found in ... #### print "(($string))\n<<$oldstring>>\n";