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

##</code><code>##

($h,$mn,$s) = $string =~ $re;