$text =~ s/[^\x{00}-\x{ff}]//g; But this is a bad idea sind you'll lose information. Better inform yourself about unicode, and how to handle it in perl.