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