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