#! usr/bin/perl -w
open(FILE,"<file1.txt");
my @lines=<FILE>;
close(FILE);
open(FILE,">file1.txt");
foreach $line(@lines)
{
 if($line =~ /.*keywordhere.*/)
 {
  close(FILE);
  exit;
 }
 else
 {
  print FILE "$line";
 }
}
close(FILE);