perl -e 'print $_, "\n" for map {/(.*)\.html/; $1}  <*.html>'