Select Code to Download

#!/usr/bin/perl
use warnings;
...
use re 'debug';

"this" =~ /(?<!x)i?/;

Compiling REx "(?<!x)i?"
Final program:
...
   0 <> <this>               | 11:  END(0)
Match successful!
Freeing REx: "(?<!x)i?"