$ echo " x x x x x x x x
x x x x
 x x x x x x x x x" | perl -pe'$c += s/x/o/g }{ print "Count = $c\n"'
Count = 21