s//$count++;""/eg; print $count || 0;