$s =~ /(string)(?{
  print $^N, $/;
})(?!)/;