open(my $read,  "<", "your_file") or die("ack: $!");
open(my $write, ">", "tmpfile$$") or die("ack: $!");

while(<$read>) {
  next unless /\b some string\b/;
  print $write;
}

close $read;
close $write;

rename $write, $read;