in reply to Perl & Groff (psed)

You mean something like: 

    perl -pi -e's/(^.*[A-Z]{2,}.*)$/.H\n$1\n.BP/' <files>

[download]
?

/J\

In Section Seekers of Perl Wisdom