my $mk = <<'END_LIST';
/foo/bar
/foo/baz
/eep/foo/bar
/epp/foo/baz
/biz
/baz/foo/bar
END_LIST

my $folder = '/foo/baz';

my $folder_present = $mk =~ /^\Q$folder\E$/im;

print "$folder_present"; # Prints 1