DB<152> @list= ("a".."c","DBIC","A".."C","DANCER","a".."c")
 => ("a", "b", "c", "DBIC", "A", "B", "C", "DANCER", "a", "b", "c")
 
  DB<153> $list = join "\0", @list
 => "a\0b\0c\0DBIC\0A\0B\0C\0DANCER\0a\0b\0c"
 
  DB<154> ($match)=  $list =~ /DBIC\0(.*)\0DANCER/
 => "A\0B\0C"
 
  DB<155> split /\0/,$match
 => ("A", "B", "C")