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

##</code><code>##

sub blazar {
    local $_=reverse $str;
    my ($cnt,$txt)=$maxlen;
    $txt.=chop while $cnt--;
}