use strict;

my $find = "2";
open( NEW, ">", "new.txt" ) or die "..."
open( FILE, "<", "high_fanout.txt") or die "..."
while (<FILE>) {
   print NEW if ( /$find/ );
}