my $hic = (split(/\*/))[-1];