Select Code to Download

use strict;
use warnings;
...
    );

print /\.([^.]+)$/ ? "Matched '$1' in " : "Failed", " '$_'\n" for @tes
+ts;

Failed '.'
Failed ''
...
Matched 'gitignore' in  '.gitignore'
Matched 'doc' in  'word.doc'
Matched 'name' in  'a.dotted.name'