@echo off
for /f "delims=" %%a in (' dir /b *.txt ') do (
        echo --^> %%a
        perl -pe "s/(?:\S+|　)\t(\S+)\t(??:\S*?|　),){7}(\S+?|　),.*/\n\2_\1/g" "%%a" | perl -pe "s/.*,.*//g;s/.*EOS.*//g;s/^\n//g;"  > "%%~na_Co_PM.txt"
        perl -pe "s/\n/\t/g;s/。_補助記号-句点\t/。_補助記号-句点\n/g;" "%%~na_Co_PM.txt" | perl -pe "s/^\s*//g"  > "%%~na_NV_list.txt"
        sort "%%~na_NV_list.txt" | uniq -c | sort -rn | perl -pe "s/[0-9]{1,}\s.*を為る//g;" | perl -pe "s/^\s*//g" > "%%~na_NV_list_freq.txt"
)