my @items = split $delim, $line;
#### vs. (and I know this will make mistakes
    my @items = $line =~ /^?([^$delim]*)(?:${delim}$)?/g;