Select Code to Download

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

say length for split /$motif/, $string;

my @a = map length, split /$motif/, $string;