#i just considered this is input file
partnm_1 fdfg

prlot dfg

test line

prwafer  df

prbin dsdg

sspec dgdfg

fab dfgdfgg

partnm_2 sdgdf

sspec dfgdg

fab dfgdf

partnm_3 dfsd

sould not print

dont prnt 

this is wrong

##</code><code>##

open($in,"file.txt") || die "file cannot be opened..$!";
@arr =<$in>;

if(@arr1=grep/(partnm_1|prlot|prwafer|prbin|sspec|fab|partnm_2|sspec|fab|partnm_3)/,@arr){
print "@arr1";
}