c:\> perl -n -e "print $last, $_ if /xyzdf$/ && $last; $last= /^xyzdf/ ? $_ : ''" file1>file2 #### abc xyzdf def hij xyzdf klm xyzdf nop qrs xyzdf #### xyzdf def hij xyzdf xyzdf nop qrs xyzdf
## abc xyzdf def hij xyzdf klm xyzdf nop qrs xyzdf ##
## xyzdf def hij xyzdf xyzdf nop qrs xyzdf