Вставка слова в строку

Использование perl командной строки в оболочке (всего несколько строк )с надлежащим csv синтаксическим анализатором:

perl -CS -Mopen=":std,IN,OUT,IO,:encoding(utf8)" -MText::CSV -lne '
    BEGIN{
        our $csv = Text::CSV->new({ sep_char => "," });
        sub uniq { my %seen;  grep !$seen{lc $_}++, @_; }
    };
    $csv->parse($_) or die "parse error";
    print join ",", map { join "#", uniq split /#/ } $csv->fields();
' file.csv

Выход:

0x,9.4,,,#0,#UNIX,#cli#L#فا#0#SE,#فارسی#۱#1#١,bsh,#V & v

Примечание:

• требуется установить Text::CSVмодуль Perl:sudo apt-get install libtext-csv-perlдля Debian и его производных