Help for this page
@{ $self->{lines}} = split('~', $line);
sub new { ... bless($self, $class); return $self; }