Select Code to Download

@data = (1, 9999, "Here comes \n a new line");
$dbh->execute(@data);
...
Query results:
Here comes
a new line

while (<FH>) {
   @arr = split /\|/;
...

Query results:
Here comes \n a new line