@files = grep /-l\.html$/,readdir(DIR); # findet alle *-.html