open(DATA, "data.txt") or die "error opening file $!";
@data = <DATA>;

##</code><code>##

if ($data =~ /$word/) {