Select Code to Download

if ($entry3 !~ /${user_input}_ABC_\S*\.pdf/) { ... }

use Path::Iterator::Rule;

...
my $next = $rule->iter( $doc_dir );

while (defined( my $file = $next->() )) { ... }