Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
        say "$key matches" if /\b\Q$key\E\b/;
    }     
}