Help for this page

Select Code to Download

Select or download this

$_ = "Goodbye\\; Good luck\\, and thanks for all the fish!\\\n\\\n";

...
s/\\([;,\n])/$+/g;            # Does work

print "<$_>\n";

Select or download this

$_ = "Goodbye\\; Good luck\\, and thanks for all the fish!\\n\\n";

...
s/(\\.)/qq{"$1"}/eeg;

print qq{<$_>\n};