(C) 2003, Tim Maher       1-19       www.TeachMePerl.com
Better Scriptified Version
pedit (cont.)

$ cat companies
Consultix is a division of Pacific
Software.



Insultix is a division of Ricklesosity.com.


$ pedit -ep \ <= Paragraph Mode
    'Pacific\s+Software' 'PS' companies


$ head -1 companies
Consultix is a division of PS.
$
 ... And sed can't touch that!