while(@rowmatches = /[^\x{1}-\x{7f}]/go){
...