#!/usr/bin/perl
use strict;

#Usage:
#      eprintfix.pl <old.bib >new.bib
#
while (<STDIN>) {
 s/[Ee]print\s*=\s*["'{]arXiv:(\d{4}\.\d{4})\s*\[([-a-zA-Z]*)\]\s*["'}]/eprint = \"$1\",\n\tarchivePrefix = \"arXiv\",\n\tprimaryClass = \"$2\"/;
 print;
};