my ( $tag, $refdate, $prtmessage, $btn, $btnfollow, $btnauthor, $btnthread, $newwin,
	  $envlist, $envaddr, $envua, $envbr );
			$msg =~ s/&#([0-9]+);/&#$1;/g;

ﾕﾆｺｰﾄﾞ対応(;´Д`)