sub jbrug2 {
    my @a = split("",$str);
    my $txt = '';
   
    for (my $i=0; $i<$maxlen; $i++) {
        $txt .= $a[$i];
    }
}