Select Code to Download

use strict;

use Data::Dumper ;
...
}

print Dumper( \@db_list_two ), "\n\n" ;

my @db_list3 = $text_two =~ /$start(.*?)$end/gi;
my $matches3 = @db_list3;

my $text = 'whatever...';
my ($start, $end) = qw( /\*<DATABASE>\*/  /\*</DATABASE>\*/ );
my $matches = my @db_list = $text =~ /$start(.*?)$end/gi;