($year, $month, $day) = $date =~ m/(.{4})(.{2})(.*)$/; [download]
-- Mike
-- just,my${.02}
In reply to Re: RegEx problem by thelenm in thread RegEx problem by Anonymous Monk