Help for this page
$string =~ $re; ($h,$mn,$s) = ($+{'h'},$+{'mn'},$+{'s'})
($h,$mn,$s) = $string =~ $re;