Help for this page
$ perl -v ... $ perl -le '$_="abc"; print "ok" if (/^[\x00-\x7f]+$/)' ok
$ perl5.8.0 -le '$_="abc"; print "ok" if (/^[[:ascii:]]+$/)' ok