use MIME::Base64 qw( decode_base64 );

( my $orig = decode_base64( $_ ) ) =~ s/(.)(?=(.))/ $1 ^ $2 /seg;