Help for this page

Select Code to Download

Select or download this
```
s/(.)?^O/\1/g; s/(.)?^N/\1/g;
```

Select or download this

>perl -wMstrict -le
"for my $str (@ARGV) {
...
OhNoOhNo -> hNoOhNo
Use of uninitialized value $1 in substitution iterator at -e line 1.
NotOnNotOn -> otOnNotOn