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