my %time=reverse split(/([HMS])/, '5H3M17S');
my $time = (( (($time{H}||0) * 60) + ($time{M}||0)) * 60) + ($time{S}||0);