if ($dir1 !~ /^\Q$dir2/){
  print "$dir1 is no subdir of $dir2\n";
}