perl -p0E 'while(s/^((.+?)\t.*)\n\2\t/$1<br>/gm){}'
(It takes 2s to process a 23MB, 1.5Mlines dictionary, in my 6years old laptop)
JJoao
- 12.8k
- 1
- 26
- 45