while ($line[i] =~ /(?:\A|\t)(abc\d+)(?=\t|\z)/g) {
	$count{$1}++;
}