Help for this page
say $fh length for split $motif, $string;
open(my $fh, '>', $qfn) or die("Can't create \"$qfn\": $!\n"); say $fh length for split $motif, $string;
my @lengths = map length, split $motif, $string;