perl -e 'print $_, "\n" for map {/(.*)\.html/; $1} <*.html>'
wenn du alle Datei-Namen ohne Endung in einem Array haben möchtest:
my @files = <*.a00>;
my @names = map {/(.*)\.html/; $1} @files;
EDIT: Aufgabenstellung nochmal gelesen.\n\n
<!--EDIT|Ronnie|1144850903-->