use Time::Local;
my ($hours, $minutes, $seconds) = (1, 2, 3); #insert your regex here
print timegm($seconds, $minutes, $hours, 1, 0, 70);

##</code><code>##

use Time::Local;
my ($hours, $minutes, $seconds) = (1, 2, 3); #insert your regex here
print timelocal($seconds, $minutes, $hours, 1, 0, 100)
      - timelocal(0, 0, 0, 1, 0, 100);