use v5.24;
use strict;
use warnings;

$" = '-';
say "foo$\"bar";