Select Code to Download

perl -le "my $str=qq(\n--\n--\n); my $p=0; do { $p=index($str,qq(\n),$
+p); print $p++; } while $p>0;"

perl -le "my $str=qq(\n--\n--\n); $str=~s/\n/print $-[0]; '\n'/ge;