$" = '-';
$\ = "\n";
print qq($\"); # $\ 
print "$\"";   # $"