- ($seconds, $pid, $fractions) = ($2, $3, $4);
- ($seconds, $decimal) = unpack_time($seconds, $fractions);
- $pid = decode62($pid);
- #warn "$seconds, $pid, $fractions\n";
- } elsif ($msgid =~ /(^|[^0-9A-Za-z])([a-zA-Z0-9]{6})$/) {
+ ($seconds, $decimal) = unpack_time($+{seconds}, $+{fractions});
+ $pid = decode62($+{pid});
+ #warn "$seconds, $pid, $+{fractions}\n";
+ } elsif ($msgid =~ /(?:^|[^0-9A-Za-z])
+ (?<seconds>
+ [a-zA-Z0-9]{11} # new format
+ |[a-zA-Z0-9]{6} # old format
+ )$/x) {