Select Code to Download

$ perl -wE 'my $k = q{a.b}; my %h = ($k, 1); say exists $h{$k} ? 1 : 0
+;'
1
$ perl -wE 'my $k = q{a.b}; my %h = ($k, 1); say exists $h{quotemeta $
+k} ? 1 : 0;'
0