while ($ucrypt =~ /(.)/g) {
      if (ord($1)>127) {
         $SKIP=1;
         last;
      }
   }