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