Select Code to Download

def permute(in_str, prefix=""):
    if not len(in_str) :
...

            permute(in_str[:i] + in_str[i + 1:], prefix + in_str[i])
permute('12345')

#!/usr/bin/perl -w
use strict;
...
    $k = $l;
    $l = $temp;
    }