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

Query results:
Here comes
a new line

##</code><code>##

while (<FH>) {
   @arr = split /\|/;
   $dbh->execute(@arr);
}

Query results:
Here comes \n a new line