sub weird2number {
    my $text = shift;
    unless ($text =~ /^\d*\.\d+D[+\-]\d+$/) {
      warn qq{Argument "$text" is not weird};
    }
    no warnings "numeric";
    return $text + 0;
  }

##</code><code>##

  sub number2weird {
    my $number = shift;
    my $text = sprintf '%.14E', $number;
    $text =~ s{
      (\d) \. (\d+ [DE]) ([+\-] \d+)
    }{ "0.$1$2" . sprintf "%+03d", $3 + 1 }xe
      or warn qq{Failed to make "$text" weird};
    return $text;
  }