/(? # Use the conditional construct

   (?{ perl code goes here})  # Perl code that will assert something

   (?=)  # empty positive assertion.

   |

   (?!)  # empty negative assertion

 )/x