592:  sub _get_token {
  593:    my $self = (shift);
  594:    my $line = (shift);
  595:    #Should be anchored to beginning
  596:    #my ($token) =  $line =~ /\^([^\^]+?)\^/;
  597:    my ($token) =  $line =~ /^\^([^\^]{1,120}?)\^/;
  598:    return $token;
  599:  }

##</code><code>##

  my $self = (shift);

  if ($self->raw) {
    return $self->raw_deserialize(@_);
  }

  my $value = (shift);
  my $token = $self->_get_token($value);