http://qs321.pair.com?node_id=369096


in reply to Perl & Groff (psed)

You mean something like this: 
    s/([A-Z][A-Z\s]*[A-Z])\s*/.H\n$1\n.BP\n/g

[download]

Abigail

In Section Seekers of Perl Wisdom