$delimiter = "\|";
.....
     @line_parts = split(/$delimiter/, $line);