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