s/<volume>(.*)<\/volume>//;$vol=$1;
    s/<issue>(.*)<\/issue>//;$iss=$1;
    s/<year>(.*)<\/year>//;$yr=$1;