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