#!/usr/local/bin/perl
# okay, so lots of stuff to deal with re teso
my $now = `date +"%Y-%m-%d"`; chop $now;
while (<>) {
s,,,g;
s,,,g;
s,TITLESTMT>,B>,g;
s,TITLE>,K>,g;
s,]*>,,g;
s,,,g;
s,PUBLICATIONSTMT>,E>,g;
s,PUBLISHER>,T>,g;
s,PUBPLACE>,U>,g;
s,,,g;
s,IDNO>,W>,g;
s,]*>,,g;
s,AVAILABILITY>,X>,g;
s,DATE>,YR>,g;
s,SERIESSTMT>,F>,g;
s,SOURCEDESC>,H>,g;
s,EDITOR>,M>,g;
s,BIBL>,AB>,g;
s,BIBLFULL>,AB>,g;
s,EXTENT>,D>,g;
s,]*>,,g;
s,,,g;
s,]*>,,g;
s,,,g;
s,]*>,,g;
s,]*>,,g;
s,,,g;
s,,,g;
s,TEXTCLASS>,I2>,g;
s,]*>,,g;
s,,,g;
s,KEYWORDS>,KW>,g;
s,,,g;
s,,,g;
s,BIBLSCOPE>,AH>,g;
s,]*>,\, ,g;
s,,,g;
s,NOTESSTMT>,G>,g;
s,]*>,,g;
s,,,g;
s,,,g;
s,, \[,g;
s,,\],g;
s,, \[,g;
s,,\],g;
s,([^<]*),$1,g;
print;
}