use MIME::Base64 qw( decode_base64 );

  my $scrambled = decode_base64($_);
  my @scrambled = unpack('C*', $scrambled) ;
  my @orig      = map { $scrambled[$_-1] ^ $scrambled[$_] } 1..$#scrambled;
  my $orig      = pack('C*', @orig) ;