# perl en2bib.pl < en.bib > arj.bib

while(<>) {
    s/\xef\xbb\xbf//g;  # first few bytes in file are weird crap.
    s/\r/\n/g;
    s/DOI/Doi/g;  # uncomment this if the bst supports it
#    s/DOI/Note/g;  # use this if the bst does not support DOI
    s/\{Manuscript submitted to (.*)\}/{{S}ubmitted to {\\it \1}}/g;
    s/DC\*/\${\\Delta}\${C}*/ig;
    s/p[cC][oO]2/\$p\$\{CO\}\$_2\$/g;
    s/[cC][oO]2/\{CO\}\$_2\$/g;
    s/[oO]2/\{O\}\$_2\$/g;
    s/[nN]2/\{N\}\$_2\$/g;
    s/d13C/\$\\delta\^\{13\}\\text\{C\}\$/g;
    s/13C/\$^13\\text\{C\}\$/g;
    s/12C/\$^12\\text\{C\}\$/g;
    s/14C/\$^14\\text\{C\}\$/g;
    s/\xc2\xb0(.)/\$^\\circ\${$1}/g;  # degrees, ensure uppercase of N,E,W,S with {}
    s/[eE]l [nN]i.o/{El}~{Ni{\\~n}o}/g;
    s/Transcom/{TransCom}/ig;
    s/Pacific/{Pacific}/g;
    s/Atlantic/{Atlantic}/g;
    s/Indian/{Indian}/g;
    s/Antarctic/{Antarctic}/g;
    s/Arctic/{Arctic}/g;
    s/Europ/{Europ}/g;
    s/Amazon/{Amazon}/g;
    s/Asia/{Asia}/g;
    s/Americ/{Americ}/g;
    s/([\:\?\.]) *([A-Z])/\1  \{\U\2\E}/g;  # uppercase 1st letter of sentence after : . or ?
    s/([A-Z]{2,})/{\1}/g;   # upper-case acronyms (two or more letters long)
    s/(Doi = \{[0-9]{2}\.[0-9]{4}\/[0-9]{4})\{([A-Z]{2,})\}([0-9]*\},)/\1\2\3/g;   # remove {} from letters in DOI field
    print $_;
}