文字列置換の処理で質問です。
変数を途中で使いたいのですが、どういう方法がありますでしょうか？

$fruit =~ s/みかん/りんご/; #OK

$apple = "りんご";
$fruit =~ s/みかん/$apple/; #NG

$apple = "りんご";
$RegExp = "s/みかん/$apple/";
$fruit =~ $RegExp; #NG