$_ = "000000000000022102840002210284";
$nums{++$c} = $1 while /(\d{10})/g;
print "$_ $nums{$_}$/" for sort keys %nums

__END__
1 0000000000
3 0002210284
2 0002210284