Select Code to Download

  sub weird2number {
    my $text = shift;
...
    no warnings "numeric";
    return $text + 0;
  }

  sub number2weird {
    my $number = shift;
...
      or warn qq{Failed to make "$text" weird};
    return $text;
  }