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