4 12 2003 ##

##

open (IN, ")
{
    s/(.*)<\/volume>//;$vol=$1;
    s/(.*)<\/issue>//;$iss=$1;
    s/(.*)<\/year>//;$yr=$1;
}
close(IN);
    print "Volume: $vol\n";
    print "Issue: $iss\n";
    print "Year: $yr\n";

##

##

Volume: 2003
Issue: 2003
Year: 2003

##

##

Volume: 4
Issue: 12
Year: 2003