my @lines;
open FILE, "<", "foo.txt";
while( <FILE> ){
  push @lines, $_;
  last if /\byourWord\b/;
}
close FILE;
open FILE, ">", "foo.txt";
print FILE, @lines;
close FILE;