#!perl -pla
$_.=':'.' _'x$_;s! !s/($'|:) \K_(?= $'|$)/++$#F/ge!ger