c:\> perl -n -e "print if /^abcde.+PARTNAME$/" c:\somefile.txt>k:\1\somefile.txt