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

##</code><code>##

use 5.026;
use Regexp::Common qw[ delimited ];

say '\/';
say $RE{delimited}{ -delim => '\/' };
say '\\/';
say $RE{delimited}{ -delim => '\\/' };
say '\\\/';
say $RE{delimited}{ -delim => '\\\/' };
say '\\\\/';
say $RE{delimited}{ -delim => '\\\\/' };

##</code><code>##

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