Help for this page
if ( $Lines eq "<NumberofDays>\d+</NumberofDays>" )
if ( $Lines =~ m|<NumberofDays>(\d+)</NumberofDays>| )
print $1