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