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