my @ebase = ("A","T");
my $limit = 15;
sub lineOK
{
	($line) = @_;
	for(@ebase)
	{
		$regex = ("$_.*") x $limit;
		return 0 if($line =~ /$regex/);
	}
	return 1;
}