while (<DATA>) {
       chomp;
       if (/_theWord/) { print "$_ contains '_theWord'\n"; }

}

__DATA__
ac_dajhta_theWord
sd_dfdfe_fdfdv
ca_hereeds_theWord
se_dcvdfdef_dsfd
cx_hserj_theWord
fa_dferefvdvv_fadfde