open INFI, "c:\\input\\file.txt" or die "cant open infile: $!\n";
open OUTFI, ">c:\\output\\file.txt" or "cant open outfile : $!\n";

while (<INFI>) {
print OUTFI  if /^abcde.*partname$/;
}