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