Select Code to Download

index.html
foo.pl
CGI.pm
video.mpeg
foo.pl~

.foo
.bar

my @names = qw/ index.html foo.pl CGI.pm video.mpeg foo.pl~ .bash_hist
+ory .bash_rc /;
foreach my $string ( @names ) {
...
    $string =~ s/(.+)\.[^.]+$/$1/;
    print "$string\n";
}