@{ $self->{lines}} = split('~', $line);