use strict;
use warnings;

my $composite_time = 'dd_hh:mm:ss';
my @time = split(/:/, $composite_time);
print "<br>@time<br>\n";

my ($p3_day_hr, $p3_min, $p3_sec) = split(/:/, $composite_time);
print "<br>$p3_day_hr $p3_min $p3_sec<br>\n";