http://www.vastalto.com/jpn/#e-Dic pejv181uからpdic用csvに変換（ざっくりと）

convert.pl

use strict;
use warnings;
use utf8;

use Text::CSV;

my $csv = Text::CSV->new({binary => 1, always_quote => 1}) or die Text::CSV->error_diag;

open my $rh, '<:encoding(UTF-8)', 'pejvo.txt' or die $!;
open my $wh, '>:raw:encoding(UTF-16LE)', 'esperanto.csv' or die $!;

print $wh "\x{feff}"; # BOM
print $wh "word,trans,level\r\n";

while (my $line = <$rh>) {
    chomp $line;

    my ($word, $trans) = split /:/, $line;
    my $level = 0;

    #{B} => lv1, {O} => lv2に変換
    if ($trans =~ s<{([ＢＯ])}><>) {
        $level = $1 eq 'Ｂ' ? 1 : 2;
    }

    if ($word =~ m{/}) {
        $trans .= " $word";
        $word =~ s{/}{}g;
    }

    my @col = ($word, $trans, $level);
    $csv->print($wh, \@col);
    print $wh "\r\n";
}

close $wh;
close $rh;