use MIME::Base64 qw( decode_base64 );

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