count trailing LFs by 鳴神裁4.1号(itflabtijtslwi)

$_=<<'E';chop;
GGxGGGGaGGGGbGG/
0/1//
1/2/ab0
E
while(1){if(s!^GG((?:[^/\\]|\\.)*?)GG!!s){my
$s=$1;$s=~s/\\(.)/$1/gs;$d=getc();while(s/(?:\Q$s\E)/$d/){}}elsif(s!^([^/\\][^/\\G]*)!! or s!^\\(.)!!s){print($1);}elsif(s!^/((?:[^/\\]|\\.)*)/((?:[^/\\]|\\.)*)/!!s){my($s,$d)=($1,$2);$s=~s/\\(.)/$1/gs;$d=~s/\\(.)/$1/gs;while(s/(?:\Q$s\E)/$d/){}}else{last;}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page