#!/usr/bin/perl -w

use strict;

$_=q[";7w2q";m/656/bq6/i;$g=
q(3616w8206qc7);$/="265502";
0;{$w=~y/726568q7/=46/;}for(
6..ew(6));q1;=|20.747.3754|;
@wa];s[\[^0-9a-f\]]{}g;@ARGV
=reverse(/../g);$a=\@ARGV;0;
grep{push(@_,sprintf('%.2x',
hex))}@$a;$"=q s\xs ;$$=qq"$
\"@_";$$=~s/\s//g;print eval
qq("$$");