In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Ton Hospel) writes: > #!perl -pl > @[EMAIL PROTECTED] > s!.!y$IVCXL91-I0$XLMCDXVIII$dfor$X[$_].=4x$&%1859^7!eg,!y/m/-/..3999;s/\w+/+$Y{$&}/g;$_=$X[eval] > > (114.54)
Exactly the same thing, but taking a bit more care with the tie breaker so that it actually beats szeryf's solution: #!perl -pl @%{@;}=0..map+s!.!y$IVCXL426(-:$XLMCDIVX$dfor$;[$_].=5x$&*8%29628!eg,!y/m/-/..3999;s/\w+/+$%{$&}/g;$_=$;[eval] (114.47)