$list =~ /.*DBIC\0(.*?)\0DANCER/
#         ^^         ^