time in perl

$numero_proceso = $$;
$string = 'Jul 18 11:47:03 cursillos';
if ($string =~ /(..):(..):(..)/){
  print "Hora: $1\n";
  print "Minuto: $2\n";
  print "Segundo: $3\n";
}