my @lengths = map length, split $motif, $string;