Select Code to Download

print "P2 has path\n" if ($P2 =~ $RE{delimited}{ -delim => '/' } );
print "P2 has path\n" if ($P2 =~ $RE{delimited}{ -delim => '\/' } );

use 5.026;
use Regexp::Common qw[ delimited ];
...
say $RE{delimited}{ -delim => '\\\/' };
say '\\\\/';
say $RE{delimited}{ -delim => '\\\\/' };

\/
(?:(?|(?:\\)(?:[^\\]*(?:(?:\\\\)[^\\]*)*)(?:\\)|(?:\/)(?:[^\\\/]*(?:\\
+.[^\\\/]*)*)(?:\/)))
...
(?:(?|(?:\\)(?:[^\\]*(?:(?:\\\\)[^\\]*)*)(?:\\)|(?:\\)(?:[^\\]*(?:(?:\
+\\\)[^\\]*)*)(?:\\)|(?:\/)(?:[^\\\/]*(?:\\.[^\\\/]*)*)(?:\/)))
\\/
(?:(?|(?:\\)(?:[^\\]*(?:(?:\\\\)[^\\]*)*)(?:\\)|(?:\\)(?:[^\\]*(?:(?:\
+\\\)[^\\]*)*)(?:\\)|(?:\/)(?:[^\\\/]*(?:\\.[^\\\/]*)*)(?:\/)))