Select Code to Download

sub jbrug2 {
    my @a = split("",$str);
...
        $txt .= $a[$i];
    }
}

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