>perl -wMstrict -le
"my $len = 4;
 my $seq = 'qwertyuiop'
 ;;
 my @contigs = $seq =~ m{ (?= (.{$len})) }xmsg;
 printf qq{'$_' } for @contigs;
"
'qwer' 'wert' 'erty' 'rtyu' 'tyui' 'yuio' 'uiop'