code in replacement part of s/// has correct scoping
code in replacement part of s/// has correct scoping

RT#128809

bitrauser/roast,perl6/roast,dogbert17/roast,dogbert17/roast,bitrauser/roast,zostay/roast,zostay/roast,zostay/roast