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