$ perl -E '
> $var = q{<x><year>2010<day>5</day></year><month>January</month> <day>31</day>, <year>2010</year></x>};
> say $1 if $var =~m{<year>(.+?)</year>};'
2010<day>5</day>
$