Select Code to Download

use MIME::Base64 qw( decode_base64 );

my $scrambled = decode_base64($_);
my $orig      = substr($scrambled, 0, -1) ^ substr($scrambled, 1);

use MIME::Base64 qw( decode_base64 );

...
my @scrambled = map ord, split //, $scrambled;
my @orig      = map { $scrambled[$_-1] ^ $scrambled[$_] } 1..$#scrambl
+ed;
my $orig      = join '', map chr, @orig;