$var='<x><year>2010<day>5</day></year><month>January</month> <day>31</day>, <year>2010</year></x>';
$var=~/<year>(.+)<\/year>/;
print $1;