Select Code to Download

use strict;
use warnings;
...
my @matchingStrings = grep m{_theWord}, @strings;

print qq{$_\n} for @matchingStrings;

ac_dajhta_theWord
ca_hereeds_theWord
cx_hserj_theWord