my $user_input = "user";
opendir my $dh4, $doc_dir or die "can't open directory:$!";
while (my $entry3 = readdir $dh4){
   if($entry3 ne $user_input."_ABC_"*.pdf{
    ...};