Select Code to Download

sub decodekey {
  my @digits = ('B','C','D','F','G','H','J','K','M','P','Q','R','T','V
+','W','X','Y','2','3','4','6','7','8','9');
...
  }
  return $key;
}

sub regexec {
  my $computer = shift;
...
  }
  return $outkey;
}

use strict;
use MIME::Base64;
...
$hex =~ s/(..)/$1,/g;
chop($hex);
decodekey($hex);