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:  }