$line =~ s/gregarious/\\underline\{gregarious\}/;