But i dont get the desired results.

It's your turn to elaborate a bit :)

1. What isn't happening that should be?
2. Or is happening that shouldn't?

If the problem is that the '~' separators are being left on the end of the lines, then that's easily dealt with once the array is filled using chomp. Ie.

    ...
    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
   ...
[download]