Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
my @arr = (".", "..", ".\n", "..\n", "file.txt");
my @files = grep !/^\.\.?$/, @arr;
print "'$_'\n" for @files;  # <== only prints 'file.txt'