Help for this page
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; }