Help for this page
open(DATA, "data.txt") or die "error opening file $!"; @data = <DATA>;
if ($data =~ /$word/) {