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";
}