Help for this page

Select Code to Download

Select or download this

>perl -wMstrict -ne
"print qq{$_\t}, join(qq{\t}, /([A-Z][a-z]?(\d*))(?=.*(\n?))/g);
...
        C1694   1694
        H2993   2993
        O101    101