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