use utf8;

my %B; $B{$&}=undef while m/%\w+%/g;

s!(?<=<body>).+?(?=<center|<a|</body>)!
補助魔法をおかけしました。<br>
アジト管理人のMPは残り <font color="00FFFF">%mp%</font> です。
!s;

s!value="To List"!"value="リストへ"!;

my %A; $A{$&}=undef while m/%\w+%/g;
foreach my $k (keys %A) {if (exists $B{$k}) { delete $A{$k}; delete $B{$k} }}
foreach my $k (keys %B) {if (exists $A{$k}) { delete $A{$k}; delete $B{$k} }}
if (%A || %B) {
	my $f = __FILE__; $f =~ s!^build/!!; my $e = $f; $f =~ s!\.ja$!!;
	foreach my $k (keys %A) {print "Unknown '$k' at $e\n"}
	foreach my $k (keys %B) {print "Unknown '$k' at $f\n"}
	exit 1
}
