my @mday = qw/0 31 28 31 30 31 30 31 31 30 31 30 31/;
my $count = 0;
for my $m (1..12){
    for my $d (1..$mday[$m]){
        if($d < 10){
            $count++ if $m == $d; 
        }else{
            my @s = split //,$d; 
            $count++ if $m == ($s[0]+$s[1]);
        }
    }
}
print $count,"\n";