Escaping the dollar means that variable interpolation won't happen and only literal '$zoek' can match.
quotemeta on the other hand escapes regex metas after inserting the content of $zoek
"zoek" is Dutch for "search" and is literal user input via Tk. But a $ in input is also a meta which needs to be quoted.
main::(-e:1): 0 DB<1> $x='.' DB<2> p 'a' =~ /$x/ 1 DB<3> p 'a' =~ /\Q$x/ DB<4> p '.' =~ /\Q$x/ 1 DB<5> p '.' =~ /$x/ 1 DB<6> p '.' =~ /\$x/ DB<7> p '$x' =~ /\$x/ 1 DB<8>
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice