sub XORmask { '30d1c6615af8cfc9' }


##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

use MIME::Base64;

use constant XORmask => '30d1c6615af8cfc9';

my $id = 'Z0xcAVtKAwkDHVcKVF5TCQ';
my $track_decode = decode_base64($id);
print $track_decode ^ XORmask, "\n";


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,