$fav = 'd:\stuff';
$dir = 'd:\stuff\buff\tuff';

if ($dir =~ /^\Q$fav\\/) {
	print "Match!\n";
}
else {
	print "No match!\n";
}