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