No, that will treat $s as a Perl expression, which will return its value, exactly like $data=~s#$r#$s#.