You can use split, which uses a regular expression to specify the separator. Only retrieve the second field:

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