Select Code to Download

sub improved {
    my $lstr = lc shift;
...
        while ($p--);
    1;
}

sub hobbled {
    my $str =  lc shift;
...
        while $x = substr($str, $p--, 2);
    1;
}