#!/usr/local/bin/perl

open _, ${$_*($\=q=G=)};
#s#.*#A#s#.*#Q#g;
close ($/=do($/)*$\++);
$_||($_=<_>);
#s^\^^J^;s$\$$O$;$_++;
s/^s.*$//mg;
s/(([^l])\n)#?/$1$2/g;
eval; print ,$,;
[download]

editted as it was prematurely posted

-monkfish (The Fishy Monk)