qr{...} is quotish so you could do $" = q{|}; $skip_rule = qr{^(?:@skip_dbs)$};, probably localising the change of $" inside a small code block.

Cheers,

JohnGG