Just delete the extension at the end of the name.

$approvedpdfs =~ s/\.pdf$//;
[download]

You could find File::Spec useful for this filename stuff, anyway.

Update: you should also take a look at perldoc perlretut, regexes aren't shell expansion rules :)