$string =~ $re1 and ( $h, $m, $s ) = ... or $string =~ $re2 and ( $h, $m, $s ) = ...