<>; @s=<>; for(@s){ s/./++$h{$`.A.$'}/ger; } for(@s){ $n=0; s/./$n+=$h{$`.A.$'}-1/ger; print$n,$/; }