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