#!perl -wl

use strict;

my (@f, @e, %f, %e);

map {
        $f{$1} = $e{$2} = !undef if /(.*)\.(.*)/
} glob("*");

@f = keys %f;
@e = keys %e;

print "filenames: @f";
print "extensions: @e";
[download]