It looks like it could be something for me, BUT - excuse my ignorance - waht kind of sintax is this:

my $query = qr{
    (?<M>monk)
    (?(<M>)(?{do_something_different()}))
    |
    (?<P>perl)
    (?(<P>)(?{do_something()}))
}x;
[download]

With perl 5.8.9 it just doesn't work