J Faith's original perl script to orient and trim 16S V4 phased primers