>>11
>$apple = "りんご";
>$fruit =~ s/みかん/$apple/; #NG
これはNGにならない。

$apple = "りんご";
$RegExp = "s/みかん/$apple/";
eval "¥$fruit =~ $RegExp";