open(FILE, "<", $multiz);
my @content = <FILE>;
close FILE;
s/^\w\w\t(.+)(?:\n)?/$1/ for(@content); 
my $len = length($content[0]) - 5;
my $allseq = join("", @content);
my @branchPoints;
while($allseq =~ /(ct(?:a|g)a(?:c|t))(?:.{$len})(ct(?:a|g)a(?:c|t))(?:.{$len})(ct(?:a|g)a(?:c|t))(?:.{$len})(ct(?:a|g)a(?:c|t))(?:.{$len})(ct(?:a|g)a(?:c|t))(?:.{$len})(ct(?:a|g)a(?:c|t))(.*)/ig)
{
my $dist = length($7);
push(@branchPoints, "\nBranchpoint:\t$1\t$dist\n\t\t$2\t$dist\n\t\t$3\t$dist\n\t\t$4\t$dist\n\t\t$5\t$dist\n\t\t$6\t$dist\n\n");
}
print REPORT @branchPoints;