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