use v5.24;
use strict;
use warnings;
$/ = 'IRS';
$\ = 'ORS';
$" = '-';
say qq"foo$\"bar";  # foo-bar
say qq'foo$\"bar';  # fooORS"bar
say qq'foo$"bar';   # foo-bar
say qq/foo$\/bar/;  # fooIRSbar
say qq/foo$\bar/;   # fooORSbar
say qq$foo\$"bar$;  # foo-bar
say qq$foo\$\"bar$; # fooORS"bar