... BOS:; # s!.*pts/\([0-9][0-9]*\).*!\1! { $s = s !.*pts/(\d\d*).*!${1}!s; $CondReg ||= $s; }