Your first request indicated that you wanted to add the information to a text file, and the code you posted originally had the steps to create and open a FILE. This version is missing that step. Are you still trying to write to a File with this version?

Also, I wonder if you wouldn't want to skip the . and .. entries at the very beginning, and move
next if $entry =~ /^.\.?$/;   # . und .. überspringen
up to the beginning of your if block?
WB