Normally I'd say "Don't use \ as a delimiter!" but this *is* a JAPH... :^)

Perhaps you could do something clever with tr/// and eval:

($re='s\\foo~.bar\\foobar\\') =~ tr/\\~/~\\/; # ~ for \
eval $re;
[download]

=cut
--Brent Dax
There is no sig.