in reply to How to test if a string is unicode string?

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

[download]
Naked blocks are fun! -- Randal L. Schwartz, Perl hacker

In Section Seekers of Perl Wisdom