$t = "妖精さん大好き";
$t =~ s/妖精/深海/;
print $t;