foreach (<DATA>) {
    my ($day)  = /(\d+)d/;
    my ($hour) = /(\d+)h/;
    $_ ||= 0 foreach $day, $hour;
    print "Day: ($day) Hour: ($hour)\n";
}

__DATA__
3d
3d 2h
6h