if(m[/\w+/foo]) {
  s[.* /(\w+) /foo \z]($1)x;
  ...
}