my @date = split '/', '16/12/2003';
print "Day   = $date[0]\n";   
print "Month = $date[1]\n"; 
print "Year  = $date[2]\n";  

__output__

Day   = 16
Month = 12
Year  = 2003