> perl -e "$string='ReplaceMe';$s1='Bug';$s2='$s1';$s3='$s2';$string=~s/Me/$s3/eeeg;print $string"
> ReplaceBug