Select Code to Download

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

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

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