rob dixon robdixongmxcom michael wang wrote something like xxxx20080503 get date year ago xxxx20070503 perl simply want subtract one first fourdigit field found string write str sd411e hth rob unsubscribe email beginnersunsubscribeperlorg additional commands email beginnershelpperlorg httplearnperlorg wed 06 aug 2008 170420 0100 date info