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