$/=$";y/a-zA-Z//cd,$_&&++$_{+lc}for<>;print"$_{$_} $_
"for sort keys%_