(?{ code })
...
This zero-width assertion evaluates any embedded Perl code. It always succeeds, and its code  is not interpolated.