Select Code to Download

/var/tmp/passwd.hostname1.platform

...
...
...
...

use strict;
use warnings;
...
     foreach $element (@glob) {
         ($keys[$k++]) = $element =~ m|\.(\w+\.\w+)\z|ig;
     }