#!/usr/bin/perl

print "Ingrese una hora en formato hh:mm:ss\n";
chop($hms=<>); # Combina lectura y chop
$hms =~ /(..):(..):(..)/;
print "Esto equivale a ", $1*3600+$2*60+$3, " segundos\n";