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