local $/ ;
open FILE, $file ;
my $data = <FILE> ; #yes, I have enough memory
close FILE ;

$data =~ s/[^[:ascii:]]+//g ;

while ($data =~ /($regex)/g)
{
...
}

##</code><code>##

v5.8.8 built for x86_64-linux-thread-multi