...
while<FILE>{
  if ( /[\x80..\xFF]/ ){
    @fields = split /\t/, $_;
    ($con_id, $desc_id, $string) = @fields[0,1,4]; 
...