...
    local $/ = $self->{segSep};
#    @{ $self->{lines}} = split(/$self->{segSep}/, $line);
    push  @{ $self->{lines}}, $_  while readline($self->{file});
    chomp @{ $self->{lines} }; ## remove the '~'s from the ends
   ...