You shouldn't ask such questions... :)

#!perl -l
use strict;
use warnings;
use Algorithm::Permute;

my $base = 3;
my @chunks = map{ [/./g] } $ARGV[0]=~/\d{$base}/g;
my $p = new Algorithm::Permute([0..$base-1]);
while(my @res = $p->next)
{
  print "(", @res, ") ",
        map { chr(64 + $base**2 * $res[$base-$$_[0]] + $base * $res[$b
+ase-$$_[1]] + $res[$base-$$_[2]]) } @chunks
}
[download]

And there is still much to improve. E.g. Math::BaseCnv