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

##</code><code>##

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