open(TEXT,"./ehon.html") || die "読みとりできません。:$!";
open(HTML,">./ehon2.html") || die "書き込みできません:$!";
print HTML ("<!--created by sce2htm-->\n");
$now = "normal";
while(<TEXT>)
{
	chomp;
	if(/：/)
	{
		if($now eq "serifu")
		{
			print HTML "</span></p>\n";
		}
		elsif($now eq "togaki")
		{
			print HTML "</p>\n";
		}
		$_ = "<p><span class=\"hito\">" . $` ."：". "</span><span class=\"serifu\">" . $' ;
		$now = "serifu";
	}
	elsif(/\t/)
	{
		if($now eq "serifu")
		{
			$_ = "</span></p>\n" . "<p class=\"togaki\">" . $';
		}
		elsif($now eq "togaki")
		{
			$_= "<br>\n" . $';
		}
		else
		{
			$_ = "<p class=\"togaki\">" . $' ;
		}
		$now = "togaki";
	}
	elsif(/<.*>/)
	{
		if($now eq "serifu")
		{
			print HTML "</span></p>\n";
		}
		elsif($now eq "togaki")
		{
			print HTML "</p>\n";
		}
		$_ .= "\n";
		$now = "normal";
	}
	else
	{
		$_ .= "\n";
	}
	
	print HTML $_;
}
print HTML ("</body></html>");
close(TEXT) || die "閉じられません:$!";
close(HTML) || die "閉じられません:$!";