>>753
my %refchr = qw(hearts & clubs & diams & spades &);
$text =~ s/&(\w+?);/($refchr{$1} or '&')."$1;"/ge;
もちっとマシな書き方があるかも。

>>756
エラーをコピペ。
500 Inter(略は無意味だからね。