Select Code to Download

#!/usr/bin/env perl
...
print qq($string\n);

Encode::is_utf8($string)? print " - is utf8\n" : print " - is not utf8
+\n";

Queensrÿche
 - is not utf8
Queensrÿche
 - is utf8