@date=split(///,@date);      
                             
 print "Day   = $date[0]\n";   
 print "Month = $date[1]\n"; 
 print "Year  = $date[2]\n";