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.