Select Code to Download

my $pat = qr{^
         (?{$pre0 = pos})
...
         ^(??{ $pre }) bb (??{ $post }) $
         ^(??{ $pre }) cc (??{ $post }) $
}xm;