use Date::Manip::Date; my $base = Date::Manip::Date->new; for my $deltastr ("32:05", "11:32:05") { $delta = $base->new_delta($deltastr); $deltasec = $delta->printf("%sys"); print "$deltastr => $deltasec s\n"; } =begin output 32:05 => 1925 s 11:32:05 => 41525 s =end output =cut