Select Code to Download

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

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

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

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