use Date::Parse qw(strptime);
for (<DATA>) {
	my @date =  (strptime($_))[4,3,5];
	++$date[0];
	$date[2] += 1900;
	print join('/' => @date) . $/;
}