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