$max_yotei=1;
open(NIKKI,"yotei.html");
@yotei= <NIKKI>;
close(NIKKI);
@yotei= grep /^\<li\>/ , @yotei;
$max_yotei--;
$max_yotei =  $max_yotei < $#yotei  ? $max_yotei : $#yotei;
print "$max_yotei\n";
print @yotei[0..$max_yotei];