#!/usr/bin/perl -w
use strict;my(@p,
$p,$e,$r,$l,$s)
;++$|;
$_=q.!,c,),eval($p),(,.;@p=split','
;$p=do{pop@p;};$r=do{pop@p;pop(@p);}
;$e=pop@p,shift@p;push@$s,$p,$e,${r}
;$r=join'',@$s,"\n";$e=do{$p++;$e=',
,',0+0;};$l=rindex$_,',';push@$s,chr
$l+99,$e;push@$s,chr(116)x2,chr(108)
,chr(101);print@$s,"\n"  # (c)s0ttle
[download]

Don't Laugh :)