johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
say for
   map { substr $_, 54 }
   sort
   map { pack q{a50Na50}, ( m{^([A-Za-z]+)(\d+)\.html$} ? ( $1, $2 ) : ( q{}, 0 ) ), $_ }
   qw{ page1.html index2.html page11.html rubbish.html page3.html index1.html page2.html }'
rubbish.html
index1.html
index2.html
page1.html
page2.html
page3.html
page11.html