>>>>> "JG" == Josh Goldberg <[EMAIL PROTECTED]> writes:
JG> $Yr = ($FieldA =~ /^(\d{2}).*/ and $1 > 20 ? 19 : 20).$1;
^^
since you are just grabbing the number you don't need the useless .*.
and i posted the same thing earlier but you factored out the $1. but
adding the () and . makes it look like about a wash golfwise
but top posting and full quoting should add penalty strokes :)
uri
--
Uri Guttman ------ [EMAIL PROTECTED] -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
