$approvedpdfs =~ s/[A-Z]*.pdf/[A-Z]*/e;