my ($day,$month,$year) = split("/",$date);