#!perl -pa
$s=' _'x$_;s/$/:$s/;s/($'|:) \K_(?= $'|$)/++$#F/gewhile$s=~/ /g