In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Ton Hospel) writes: > The most obvious target is to get rid of the 0: > #!perl -pl > s!.!y$IVCXL91-I0$XLMCDXVIII$dfor$X[$_].=4x$&%1859^7!egfor!y/m/-/..3999;@[EMAIL > PROTECTED]@X;s/\w+/+$Y{$&}/g;$_=$X[eval] > > (115.54)
Also use map to get the range: #!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)