Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        $n = $n / length;
        print "$_ \t $n \n";
}

make     5.82020185353244
money    5.88790803839067
...
sausage          7.14737507906388
xstebxz          4.24403141340688
ysvbWeioc        4.91268597200451

#!/usr/bin/perl -w
use strict;
...
        $n = $n / (length($_)-1);
        print "$_ \t $n \n";
}

make     0.780188653301433
money    0.933641338723428
...
miney    1.19489591067844
fost     0.72133762340841
fzst     0.243168422114054