Select Code to Download

#!/usr/bin/perl
$:=ord($\=$/);($|,$_)=(++$!,
...
pop@_,hex pop@_,(ord$_[0])-42-$:]}m/.../g]}split/O/;@g=(map{for(@$_){$
+g[
$$_[0]][$$_[1]]=$$_[2]}[map{[@$_]}@g]}@d);while (1){for(@g,reverse@g[1
+..
11]){print$/;for(@$_){print map{$c{$_}}@$_}sleep$|}}# Stickman Filmstr
+ip

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/