s2p helps you migrate from sed to perl

$ s2p "s!.*pts/\([0-9][0-9]*\).*!\1!" produces

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

 ${1} is $1 is \1
 \(\) is ()
[0-9] is \d
* is *
. is .