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