# usage: ./buck_stems2lg_lex.sh dictStems | more
#perl -p -e 's/^;.*\n//g; s/(.*?)\t.*?\t(.*?)\t.*/$1.$2/g' < $1
perl -p -e 's/^;.*\n//g; if (m/<pos>/) {s/^(.*?)\t.*\/(.*?)<\/pos>/$1.$2/g} else { s/(.*?)\t.*?\t(.*?)\t.*/$1.$2/g } ' < $1