#!/usr/bin/perl -w -C

use Text::RewriteRules;

RULES/x num2words
(\d+) (000000) \b ==>$1 milhão!!            $1 == 1

(\d+) (000000) \b ==>$1 milhões

(\d+) (000) (\d{3}) ==>$1 milhão e $3!!     $1 == 1

(\d+) (\d{3}) (000) ==>$1 milhão e $2 mil!! $1 == 1

(\d+) (\d{6}) ==>$1 milhão, $2!!           $1 == 1

(\d+) (000) (\d{3}) ==>$1 milhões e $3

(\d+) (\d{3}) (000) ==>$1 milhões e $2 mil

(\d+) (\d{6}) ==>$1 milhões, $2


(\d+) (000) \b ==>mil!!                     $1 == 1

(\d+)(000)\b ==>$1 mil

(\d+)0(\d{2}) ==>mil e $2!!               $1 == 1

(\d+)(\d00) ==>mil e $2!!                 $1 == 1

(\d+)(\d{3}) ==>mil $2!!                  $1 == 1

(\d+)0(\d{2}) ==>$1 mil e $2

(\d+)(\d00) ==>$1 mil e $2

(\d+)(\d{3})
==>$1 mil, $2


100
==>cem 

1(\d\d)
==>cento e $1 

0(\d\d)
==>$1

200
==>duzentos 

300
==>trezentos 

400
==>quatrocentos 

500
==>quinhentos 

600
==>seiscentos 

700
==>setecentos 

800
==>oitocentos 

900
==>novecentos 

(\d)(\d\d)
==>${1}00 e $2


10 ==>dez 

11 ==>onze 

12 ==>doze 

13 ==>treze 

14 ==>catorze 

15 ==>quinze 

16 ==>dezasseis 

17 ==>dezassete 

18 ==>dezoito 

19 ==>dezanove 

20 ==>vinte 

30 ==>trinta 

40
==>quarenta 

50
==>cinquenta 

60
==>sessenta 

70
==>setenta 

80
==>oitenta 

90
==>noventa 

0(\d)
==>$1

(\d)(\d)
==>${1}0 e $2


1
==>um 

2
==>dois 

3
==>três 

4
==>quatro 

5
==>cinco 

6
==>seis 

7
==>sete 

8
==>oito 

9
==>nove 

0$
==>zero 

0
==> 

"  "
==> 

" ,"
==>,

ENDRULES

for (@ARGV) {
  print num2words($_),"\n";
}