Help for this page
Select Code to Download
Select
or
download this
$ perl -de 1 ... ... DB<49> x ord bsubstr $a, 3, 1 0 47