open(file,"file.txt"); open(file_out,">new_file.txt"); while($str=Жfile>){ if($str=~/LINUX/){print file_out $str;} } close(file); close(file_out);