E. name;E.serial;E. kive;E. bilanss;E. emp
01 Norme OÜ;10818160;less 1 miljoni;less 1 miljoni;
1 AGENCY OÜ;10652268;less 1 miljoni;less 1 miljoni;1 - 5 emp
1. JALASTAAP;70007295;;;
101 SYSTEMS OÜ;10825652;3 - 10 miljonit;1 - 3 miljonit;
15075 OÜ;10399876;1 - 3 miljonit;less 1 miljoni;1 - 5 emp
5SVARA AS;11036261;;;
1QA OÜ;10614794;less 1 miljoni;less 1 miljoni;

##</code><code>##

10818160|1|1|0|0|2010-05-12|
10652268|1|1|5|0|2010-05-12|
70007295|0|0|0|0|2010-05-12|
10825652|10|3|0|0|2010-05-12|
10399876|3|1|5|0|2010-05-12|
11036261|0|0|0|1|2010-05-12|
10614794|1|1|0|0|2010-05-12|

##</code><code>##

#! C:\Perl64\bin\perl
use strict;
use POSIX qw(strftime);

my $add_date = strftime(".%Y%m%d", localtime);
my $output_tag = (".csv");
my $failid='C:\\ROOT_DIR\\Inspektor\\insp_file.aa';
my $dest = "C:\\ROOT_DIR\\Inspektor\\test\\";


if (open(FAILIDcnt, $failid)) {
    while(my $input = <FAILIDcnt>) {
        chomp($input);
   
        my $output = $input;

		open(IF, 'C:\\ROOT_DIR\\Inspektor\\' .$input) or next;
     	open(my $dest,"> $dest".$output) or die "Can't open $dest: $!";

        while(my $line = <IF>) {

$line =~ s/less 1 miljoni/1/g;
$line =~ s/1 - 3 miljonit/3/g;
$line =~ s/3 - 10 miljonit/10/g;
$line =~ s/10 - 20 miljonit/20/g;
$line =~ s/20 - 50 miljonit/30/g;
$line =~ s/50 - 100 miljonit/100/g;
$line =~ s/100 - 250 miljonit/102/g;
$line =~ s/250 - 500 miljonit/103/g;
$line =~ s/500 milj - 1 miljard/104/g;
$line =~ s/over 1 miljardi/105/g;
$line =~ s/1 - 5 emp/5/g;
$line =~ s/6 - 15 emp/15/g;
$line =~ s/16 - 25 emp/25/g;
$line =~ s/26 - 50 emp/50/g;
$line =~ s/51 - 100 emp/100/g;
$line =~ s/101 - 250 emp/250/g;
$line =~ s/251 - 500 emp/500/g;
$line =~ s/501 - 1000 emp/1000/g;
$line =~ s/over 1000 emp/1001/g;
$line =~ s/;/|/g;

# needs if or something
$line =~ s/(.*\sAS)/1/g;
# every other case should be 0 elseif !!!

            print $dest "$line";
        }
        close($dest);
        close(IF);
    }
    close (FAILIDcnt);
}