say $_ for map {sprintf (“%d”, length)} split/$motif/, $string;