Select Code to Download

use warnings;
use strict;
...
my $xCount = $str =~ tr/X/X/;

print "$xCount: >$str<\n";