use CypherTextI;

my $ecret = 'L33T_CYPH3RP0NK';
my $n_Cr1pT0r = CipherTextI->new("R_KEY=$ecret");

print $n_Cr1pT0r->decipher(';·`5´µf¯¦f±HBopbT¤·¿¾Àx');