Select Code to Download

sub do_dni {
    my ( $filename ) = @_;
...
        $sub_ref->($fn) if ( $fn =~ /$pattern/ );
    }
}

my @dispatch = ( { pattern => qr/DNI/,
                   coderef => \&do_dni, },
...
            if ( $fn =~ $item->{pattern} );
    }
}