Ok, so it's not particularly convoluted, but it's not exactly easy on the eyes. *smile*

$_[$_]=++$_{_};$_[$_]<<=$_{_}++;$_[$_]<<=$_{_};$_[
$_++]+=$_{_}--;$_[$_]+=$_[--$_];$_[++$_]+=++$_;$_[
--$_]+=$_;$_[$_++]<<=$_--;$_[$_]-=$_[--$_]>>++$_;$
_[++$_]=$_[$_];$_[$_++]-=++$_{_};$_[$_]=$_[$_{_}]+
--$_{_};$_[++$_]=$_{_}-$_{_};$_[++$_]=$_{_};$_[++$
_]=$_[$_{_}>>$_{_}];$_[$_++]<<=++$_{_};$_[++$_]=$_
[--$_];$_[$_++]++;$_[$_++]=$_[++$_{_}];$_[++$_]=$_
[--$_]-$_;$_[$_++]-=--$_{_}<<$_{_}--;;$_[++$_]=$_[
--$_];$_[$_]-=++$_{_};$_[$_++]-=--$_{_};$_[$_]=$_[
++$_{_}];;$_[$_++]--;$_[$_++]=$_{_}-$_{_};$_[$_]=$
_{_}<<$_{_};$_[$_++]<<=--$_{_};$_[$_]=$_{_}++<<$_{
_};$_[$_++]+=--$_{_};$_[$_++]=$_[$_-++$_{_}]+$_{_}
;;$_[$_]=$_;$_[$_++]-=$_{_}<<$_{_}--;$_[$_++]=$_-$
_;$_[$_++]=++$_{_}<<$_{_};$_[$_]=++$_{_}<<$_{_};$_
[$_++]+=$_{_}--;$_[++$_]=$_[--$_];$_[$_++]+=$_{_};
$_[++$_]=$_[--$_];$_[$_++]+=$_{_}<<$_{_};$_[++$_]=
$_[--$_];$_[$_]-=$_{_}<<$_{_};$_[$_++]+=$_{_};;$_[
++$_]=$_[--$_];$_[$_]+=$_{_}<<$_{_}++;$_[$_++]+=$_
{_}-->>--$_{_};$_[++$_]=$_[--$_];$_[$_]+=++$_{_}<<
$_{_};$_[$_]++;map{print+($",A..Z,a..z,$/)[$_]}@_;
[download]