use warnings;
use strict;

open OUT, ">out.txt";

while (1) {
	$| = 1; 
	my @out = qx/contig.exe -a -s -v *"/;
	foreach my $line(@out) {
		if ($line =~ "is in") {
			print OUT $line; 
		}
	}
	sleep 5;
	print OUT "\n";