$file =~ s/^([A-Z].*)\.pdf\z/$1/;