DB<182> @list= ("a".."c","DBIC","A".."C","DANCER","a".."c");
 
  DB<183> sub ff ($) { print $_[0]}
 
  DB<184> grep { ff(/DBIC/ .. /DANCER/)  } @list;
12345E0