#!/usr/local/bin/perl -w die "Usage: $0 directory\n" unless (@ARGV); foreach $arg (@ARGV) { push @files, sort glob "$arg/*"; } #print "\n"; foreach $file (@files) { if ($file =~ /(\w+)\.\w+$/) { $pretty = $1; print "$pretty
\n"; } } #print "\n";