http://qs321.pair.com?node_id=1028786

taint has asked for the wisdom of the Perl Monks concerning the following question:

Greetings, I've been maintaining some 9k html records for a few years now. The names of the files begin with the same 3 alpha characters, followed by 4, or less digits (0-9). I've been maintaining them via quick one-off sed scripts. But recently I decided I needed to re-numerate them, as it would be ultimately be more efficient. I also decided (given I /really/ love perl) that it would make more sense to maintain a set of Perl scripts to better maintain these documents, then it hit me -- I have no idea how to take on the task of re-numerating the references within these documents.
PROBLEM:
changing all references to:
abc[0-9][0-9][0-9].html
into
abc0[0-9][0-9][0-9].html
the same goes for abc[0-9][0-9].html
in short; I need all of the files to be 4 digits long -- not 1,2, & 3, as they are now.
I'm fair with search & replace, add, and delete. But I /suck/ at hold patterns -- which I think I need here. I tried to match against:
 /abc1[0-9][0-9].html
with the intent of matching within the 100-199.html documents. But all my efforts were an epic fail.
Pointers, solutions would be greatly appreciated.

Thank you for all your time, and consideration.

#!/usr/bin/perl -Tw
use perl::always;
my $perl_version = "5.12.4";
print $perl_version;