perl -e '$a="aaa"; $i=$a=~tr/a//; print "($i)($a)\n";'