{
  local $/ = undef;
  open(FILE,$filename) or die "open failed on $filename: $!";
  $wholetext = <FILE>;
  close FILE;
}
if ( $wholetext =~ /\b$searchword\b/ ) {
     # do something
}