use strict;
use Date::Manip;

foreach (<DATA>) {
	chomp;
	next if /^$/;
	my @delta=split(/:/, ParseDateDelta($_));
	my ($day) = $delta[3];
	my ($hour) = $delta[4];
	print "$_\t=>\tDay: $day\tHour: $hour\n";
}

__DATA__
3d
3d 2h
6h