my $prefix = qr{[^$delim]*};
print "$prefix\n";

##</code><code>##

(?^:[^([{<]*)