if ( $path->[0] =~ /\Q$newpath\E/ )