Help for this page

Select Code to Download


  1. or download this
    
  DB<49> sub english_num { my ($pre,$num) = @_; my $eng = join "-", ma
+p {(qw/zero one two three four five six seven \
...
  DB<52> say $txt
 some text No. \three-four-five other text No. \one-two-three end text
  2. or download this
    
  DB<94> $_ =" some text No. 345 other text No. 123 end text"
...

  DB<97> p
 some text No. \three-four-five other text No. \one-two-three end text