c:\> perl -n -e "print $last, $_ if /xyzdf$/ && $last; $last=  /^xyzdf/ ? $_ : ''" file1>file2