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