Select Code to Download

#!/usr/bin/perl -CO
use strict;
...
print "UTF8-Flag: ", utf8::is_utf8($b) ? "Yes" : "No";
print "    matches word: ", $b =~ /\w/ ? "Yes" : "No";
print "\n";

UTF8-Flag: Yes    matches word: Yes
UTF8-Flag: No    matches word: No
UTF8-Flag: Yes    matches word: No
UTF8-Flag: No    matches word: No