$line =~ s/(gregarious)/\\underline{gregarious}/g &&
    $line =~ s/\\underline\{(gregarious)\}/\\footnote{$1}/;