On 10/30/07, mlondon <mlondon at sprynet.com> wrote: > I would like to be able to FIND a string and move it up or down in the file. Pipe the document through: perl -ne 'BEGIN{$"=undef}push(@hold, $_) if /^NOTE/../^X-Palm/; print unless @hold; if (/^X-Palm/) {pop @hold; print "$_ at hold"; @hold=()}' j.