use MIME::Base64 qw( decode_base64 );

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