if ($phash{ascii}){
    $phash{find}=&asciicode($phash{find});
    $phash{replace}=&asciicode($phash{replace});
    }