$data=~s#$r#$s#e