Select Code to Download

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

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