Select Code to Download

messages
messages.
...
messages.3
messages.pl
messages.txt

opendir D, '.';
while(readdir D) {
   /^messages(?:\.\d?)?$/ and print $_,"\n";
}

messages.
messages.2
messages
messages.1
messages.3

opendir D, '.';
while(readdir D) {
...
    print "$_\n" # print it out.
}