#!/usr/bin/perl -w

#use strict;
use File::Copy;

my $num=0;
my $dir="/path/to/dir";

opendir(DIR, $dir) or die $!;
@files=readdir(DIR);

foreach $file (@files) {

   $_ =~ m/([a-zA-Z])\d+?/g;  # <= вот сдесь у меня проблема!

rename $file, ++$num.'txt';
}
closedir(DIR);