if ( $STRING =~ m/[^[:ascii:]]/ ) { print "Not ACSII\n" }