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

The mysterious sets of 1 to 3 bars is nothing more than them tracking the number of hours per active use....... if you hit 4 bars you need to seek professional help immediately.

Its a little known fact, that most ufo crashes are caused by aliens oogling earth girls, and their session goes over 4 hours. :-)