Select Code to Download

use Encode qw( decode );

...
print(length($chars), "\n");  # 3

print($chars =~ /xml/ ?1:0,"\n");  # 1