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

Query results:
Here comes \n a new line