I1:  if($last=~/[^/x00-\x7f]){...#here the exception occurs}


I2: if($last !~/\d/){...
# here the exception occurs is I1 is commented out
                  }