#!/usr/bin/perl
use strict;
use warnings;

die "usage:perl $0 input output" unless @ARGV==2;
open IN,"$ARGV[0]";
open OUT,">$ARGV[1]";
while(<IN>){
	if(/^#/){
		print OUT;
		next;
	}
	chomp;
	my @line=split(/\t/);
	my($SU,$PE,$SR)=(split(/:/,$line[9]))[1,2,3];
	next if ($PE<2 or $SR<5);
	print OUT "$_\n";
}