Re^2: Perl script to find particular string and save those lines in another file?

[sumathigokul]

Thank you, this code works.

use strict;
my $find = "2";
open (NEW, ">", "new.txt" ) or die "could not open:$!";
open (FILE, "<", "high_fanout.txt") or die "could not open:$!";
while (<FILE>) {
print NEW if (/$find/);
}
close (FILE);
close (NEW);