Help for this page

Select Code to Download

Select or download this

>perl -MO=Deparse -ne
"$s=<>;<>;<>;chomp($s);print length($s).\"\n\";
...
    print length($s) . "\n";
}
-e syntax OK