# warning win32 doublequotes

perl -F"\W" -lanE "$r{join('|',@F[0,4,1])}++}{say s/(\|\w+$)/\|$r{$_}$1/r for keys %r" data.txt