Select Code to Download

Select or download this
```
#!/usr/bin/perl
our %parametros;
...
}
```
Select or download this
```
Perl=pl,pm
C=c,h,o
Bash=sh
```

<C><coment><nivel=1>    # Caso a formula '[1]' seja verdadeira, execut
+a os próximos comandos</coment> <expr>if\((.*)\)\ *\{</expr>
<Perl><inicio><coment></coment> <expr>#\!\/usr\/bin\/perl</expr>
...
<Perl><nivel=3><coment># [1] => Reconhece qq coisa entre '[2]' e '[3]'
+</coment> <expr>\s?\$\w+\s?=~\s?\/.*(\[(\w|\d)\-(\w|\d)\]).*\/</expr>
<Perl><nivel=3><coment># [1] => A expressão '[2]' deve aparecer entre 
+[3] e [4] vezes</coment> <expr>\s?\$\w+\s?=~\s?\/.*(([\[|\(].+[\]|\)]
+)\{(\d),(\d)\}).*\/</expr>
<Perl><nivel=3><coment># [1] => A expressão '[2]' deve aparecer entre 
+[3] e [4] vezes</coment> <expr>\s?\$\w+\s?=~\s?\/.*((\\.)\{(\d),(\d)\
+}).*\/</expr>