$delimiter = "|";
@list = split $delimiter, $line;