use strict;
use warnings;
use XML::Twig;

my @days;
my $twig= XML::Twig->new(
   twig_handlers=>{
                    'div[@class="data"]'=>sub{
                                (my $txt =  $_[1]->text)=~s/\W//g;
                                 push @days, $_[1]->att('id')."=$txt";
                    }
   }
);

$twig->parsefile ('example.html');
print join ', ', @days;

# output
Zero=, One=Monday, Two=Tuesday, Three=Wednesday, Four=Thursday, Five=Friday, Six=Saturday, Seven=Sundaynbsp