Help for this page

Select Code to Download

Select or download this

 
$str = join "\0",@wordlist,
@reverts = map { "\0" . reverse $_ } @wordlist;
$pattern = '(' . join('|',@reverts) . ')'  ;
@matches = ( $str =~ /$pattern/g );

Select or download this

  DB<131> @wordlist=qw(mamy dady bara foo bic ymamaa arabic );
 => ("mamy", "dady", "bara", "foo", "bic", "ymamaa", "arabic")
...

  DB<134> @matches = ( $str =~ /($pattern)/g );
 => ("\0ymam", "\0arab")