$re = qr/(?<h1>...)(?<m1>...)(?<s1>...)|(?<h2>...)(?<m2>...)(?<s2>...)/;
$string =~ $re;
( $h, $m, $s ) = ( $1 || $4, $2 || $5, $3 || $6 );