You're welcome... it's good to see people learn, to be honest i often have to look up the most basic things myself.

One minor hint:
When you want to assign the value of one variable to another, you needn't quote the original variable.

Hence,

$String = "$survey";
[download]

is actually better written as:

$String = $survey;
[download]

Perl is flexible enough to live with the first version, but that ability was really meant more for things like this:

if ($something) {
    # do some stuff
}
else {
    # there was an error, set it
    $error = "informative error message";
    $error_num = 45;
}

print STDERR "Error $error_num    $error";
[download]

This will (if there was an error, ie $something was not true) produce:
Error 45    informative error message on the STDERR output (or in a logfile, or wherever you printed the error)

In any case, please do take a look at those other links in this thread, if you read/heed them, you'll actually get better answers much more quickly at this site.

have a great day!