Select Code to Download

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

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

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