open C, ">c:\\somefile.txt";
open (FH, "k:\\1\\somefile.txt") || die "Couldn't  open file: $!";
@required=();
@all=<FH>;
foreach $item (@all) {
  next unless (index($item, 'abcde') == 0);

  if ($item=~/abcde.*PARTNAME/) {
    push (@required,$item);
  }
}
print C @required;