my $x = timespan2seconds('1 20:19:33'); print "$x\n"; my $y = timespan2seconds('20h 33s 1d 19m'); print "$y\n"; $x -= timespan2seconds('2d'); $x -= timespan2seconds('34s'); $x -= timespan2seconds('20:19'); $x += timespan2seconds('1d1s'); print "$x\n"; $y += timespan2seconds('4h'); $y -= timespan2seconds('0:19:33'); $y -= timespan2seconds('2d'); print "$y\n";