my $escape;
$escape       = qr/(?<!(??{ $escape}))\\/;