($control_file = $acc_files[0]) =~ s/pdf$/txt/;