$_='&65363;&65353;&65345;&65359;&65352;&65364;&65345;&65356;.&65359;m@blahblah.co.jp';
s/&(\d+);/chr($1-0xFF00+0x20)/ge;
print $_;

##</code><code>##

$_='&65363;&65353;&65345;&65359;&65352;&65364;&65345;&65356;.&65359;m@blahblah.co.jp';
s/&(\d+);/($1>0xFF00 && $1<0xFF5F) ? chr($1-0xFF00+0x20) : $1/ge;
print $_;