Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
say "\n Final \$count of 'x' in given/when matching 'x': $count";

say "\n $foo";

First, with a simple substitution '/g'
 $foo: X o y y o y Z;
 $simplecount: 2 (i.e., 'x's changed)
...
 Final $count of 'x' in given/when matching 'x': 1

 X x y y x y Z