DB<134> @list= ("a".."c","DBIC","A".."C","DANCER","a".."c")
 => ("a", "b", "c", "DBIC", "A", "B", "C", "DANCER", "a", "b", "c")
 
  DB<135> grep { /DBIC/.. /DANCER/  } @list 
 => ("DBIC", "A", "B", "C", "DANCER")