Select Code to Download

#!/usr/bin/env perl
use strict;
...

my $string = 'FOO';
for (grep /\b\Q$string\E\b/, keys %$filtered) { say $_; }