use utf8;

my $E0 = 'Cannot find string resource';

s{"Congratulations you are married!"}
 {"ご結婚おめでとうございます！"}g ||warn $E0;	#〓意訳

#s{"Congratulations to "\+player\.getName\(\)\+" and "\+ptarget.getName\(\)\+"! They have been married\."}
# {player.getName()+"さん、"+ptarget.getName()+"さん、御結婚おめでとうございます！"} ||warn $E0;	#〓意訳

s{\Q"Congratulations to "+player.getName()+" and "+ptarget.getName()+"! They have been married."\E}
 {player.getName()+"さん、"+ptarget.getName()+"さん、御結婚おめでとうございます！"} ||warn $E0;	#〓意訳

s{"You declined"}
 {"辞退しました"} ||warn $E0;	#〓意訳

s{"Your partner declined"}
 {"パートナーはご辞退なさいました"} ||warn $E0;	#〓意訳
