Brian wrote: oops, should read......
$Year_out = $Year_in; while ($Year_out > 100) {$Year_out -= 100;} if (($Year_out > 00) && ($Year_out <= 25)) {$string = $string1;} if (($Year_out > 25) && ($Year_out <= 50)) {$Year_out -= 25;$string = $string2;} if (($Year_out > 50) && ($Year_out <= 75)) {$Year_out -= 50;$string = $string3;} if (($Year_out > 75) && ($Year_out <= 100)) {$Year_out -= 75;$string = $string4;} -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/