local our $count;
my $inc_count = qr/(?{$count++})/;
/..*..*.$inc_count(?!)/;