Descramble coded message found in Leather Goddesses of Phobos.

substitution.pl

#!/usr/bin/perl -w

use strict;
use warnings;

sub phobosDecrypt {
	reverse shift =~ tr/A-Z/X-ZA-W/r;
}

print "Enter encrypted message:\n";
print "> ";
my $message = <STDIN>;
print(phobosDecrypt($message) . "\n");