DB<136> @list= ("a".."c","DBIC","A".."C","DANCER","a".."c")
 => ("a", "b", "c", "DBIC", "A", "B", "C", "DANCER", "a", "b", "c")
 
  DB<137> for (@list) { push @result,$_ if /DBIC/.. /DANCER/ and ! //  } 
 => ""
 
  DB<138> @result 
 => ("A", "B", "C")
 
  DB<139> grep { /DBIC/.. /DANCER/ and //  } @list 
 => ("DBIC", "A", "B", "C", "DANCER")
 
  DB<140> grep { /DBIC/.. /DANCER/ and ! //  } @list 
 => ()