#!/usr/bin/perl
use warnings;
use strict;

while (<>) {
  print;
  last if $_ eq ".SH \"NAME\"\n";
}
$_ = <> // die 'no name section';
s/(.*?)( \\- .*)/\\fB$1\\fP$2/ or die 'bad name section';
print;
print <>;
exit 0;