This does what you want. my $re = qr/(?<!\Q$c\E)\Q$d\E/; The \Q . . \E pair is like quotemeta. I've changed the names to protect sort. Extra ( . . ) delimiter pair is cut.