Help for this page

Select Code to Download

Select or download this

~linux>perl -e '$BEGIN{my @found = ()}; $foo = q|A--B|; while($foo=~m/
+\-/g){push @found,@+}; END{print qq|found at $found[0] to $found[$#fo
+und]|}'

Select or download this
```
found at 2 to 3
```