Select Code to Download

#!/usr/bin/perl
our %parameters;
...
    }
    close LIN;
}

<C><coment><level=1>    # If formula '[1]' is true, it executes the ne
+xt commands</coment> <expr>if\((.*)\)\ *\{</expr>
<Perl><beginning><coment></coment> <expr>#\!\/usr\/bin\/perl</expr>
...
<Perl><level=3><coment># [1] => Recognises anything between '[2]' and 
+'[3]'</coment> <expr>\s?\$\w+\s?=~\s?\/.*(\[(\w|\d)\-(\w|\d)\]).*\/</
+expr>
<Perl><level=3><coment># [1] => The expression '[2]' must appear betwe
+en [3] and [4] times</coment> <expr>\s?\$\w+\s?=~\s?\/.*(([\[|\(].+[\
+]|\)])\{(\d),(\d)\}).*\/</expr>
<Perl><level=3><coment># [1] => The expression '[2]' must appear betwe
+en [3] and [4] times</coment> <expr>\s?\$\w+\s?=~\s?\/.*((\\.)\{(\d),
+(\d)\}).*\/</expr>