@arrayUnsorted=('page1.html', 'page11.html', 'page2.html', 'page3.html
+');

my @a = sort{ ($a.$b)=~/(\d*)\.htmlpage(\d*)/;$1<=>$2; } @arrayUnsorte
+d;

print "$_\n"
  foreach @a;
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.