$delimiter = qr/\|/;
.....
     @line_parts = split $delimiter, $line;