my @files = <*.a00>;
my @names = map {/(.*)\.html/; $1} @files;