Select Code to Download

my $exts = join( "|", qw/pdf doc ps txt/;
@links = grep( !/\.(?:$exts)$/, @links );