#!/usr/bin/perl -w
use strict;

# Need to 'unescape' the escaped characters
$_ = 'Goodbye\; Good luck\, and thanks for all the fish!\\n\\n';

# s/\\([;,\n])/$+/g;            # Doesn't match '\\n'
# s/\\([;,n])/$1/g;             # Matches '\\n', but turns it into 'n'
# s#\\n|\\([;,])#$1||$/#ge;     # Works, but... UGH.
# s/\\n/\n/g; s/\\(;|,)/$1/g;   # Yah, yah, shure.

print;