while (<>) {
    tr/\"/\'/;
    print;
}


##</code><code>##

$name = "my name";
print "---$/ What is $name ? \t I won't tell.\n---";


##</code><code>##

---
 What is my name ?         I won't tell.
---


##</code><code>##

---$/ What is $name ? \t I won't tell.\n---