如何在Perl中使用不断增加的数字替换令牌？

#!/usr/bin/perl

use strict;
use warnings;

my $count = 0;
my $string = "This is token %d and this is token %d";

while ($string =~ /%d/g) {
    $count++;
}

my $formatted_string = sprintf($string, 1..$count);

print $formatted_string, "\n";