Help for this page

Select Code to Download

Select or download this

  DB<52>  @list= ("a".."c","DBIC","A".."C","DANCER","a".."c");
 
...
0000000000
  DB<55>  grep { my $x=(/DBIC/ .. /DANCER/); ff($x) } @list;
12345E0

Select or download this

  DB<182> @list= ("a".."c","DBIC","A".."C","DANCER","a".."c");
 
...
 
  DB<184> grep { ff(/DBIC/ .. /DANCER/)  } @list;
12345E0