open (my $i, "+<", $name) or warn $!;   ### FAILS HERE ###
        while (<$i>) {
            chomp $i;
            next if $i =~ /$regexp_2_skip/;
            next if $i !~ /$regexp_2_get/;
            ($i) =~ s/:/,/g;
            ($i) =~ s/\s+//g;
            print $csv "$i,\n";
            print "$i,\n";
        }