my $sub = q|sub{$a=<DATA>;pack("h*",join('',map{vec(unpack('u',$a),ord($_),1)?chr(ord($_)^64):''}split//,$_[0]))};|;