http://www.perlmonks.org?node_id=150168


in reply to •Re: Find illegal ASCII characters
in thread Find illegal ASCII characters

 while (/([^\n\r\x20-\x7f])/g) {

Why not to fix the expresion "once" to make the script faster?

  while (/([^\n\r\x20-\x7f])/go) {

Saluti.