$line =~ s/gregarious/\\footnote\{gregarious\}/im;

##</code><code>##

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