>>566
$count = $a =~ tr/2/2/;