A perl script for parsing and rearranging UCLUST output