А я люблю использовать grep  :
open FILE, "file.txt";
my @indata = grep( /(LINUX)|(WINDOWS)/, < FILE>);
close FILE;
open FILE, ">file.txt";
print FILE @indata;
close FILE;
__________________
Лень - это когда видишь необходимость что-то делать, но не хочется, а влом - это когда что-то хочется, но не видишь необходимости это делать.
|