for my $string ("Database_Test_Access_DB",
                "Database_Development_Access_DB",
               ) {
    print((split /_/, $string)[1], "\n");
}