Select Code to Download

    $char = chr ord $string;

    #!/usr/bin/perl -w
...
    _substr   588235/s      280%      140%        --      -14%
    pop_chord 684932/s      342%      179%       16%        --