if ( $abbr =~ s/([123][sdp])// ) {
            push(@abbr, $1);
            $abbr =~ s/\s//g;
         };

##</code><code>##

if ( $file[$i] =~ m/(\\gll|\\ag\.|\\bg\.|\\cg\.|\\dg\.|\\eg\.|\\fg\.|\\exg\.|\\exg)/ )

##</code><code>##

if ( $file[$i] =~ /(\\(?:gll|[abcdef]g\.|exg\.?))/ )