#!/usr/bin/perl

my @list = qw(A1.txt A10.txt Hello225.txt);
for (@list) {
  s/\d+/sprintf("%05d", $&)/e;
  print $_ . $/;
}