my @find = $line[$i] =~ /(?:\A|\t)(abc\d+)(?=\t|\z)/g;

##</code><code>##

my @find = $line[$i] =~ /(?:\A|\t)(abc\d+)(?=\t|\z)/
my %count;
$count{$_}++ for @find;

##</code><code>##

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