perl -e '$a="aaa"; $i=$a=~tr/a//; print "($i)($a)\n";' [download]
In reply to Re^2: number of matches by Rhandom in thread number of matches by Anonymous Monk