1 use re Debug=>qw(COMPILE EXECUTE);
3 XY => 'X(A|[B]Q||C|D)Y' ,
4 foobar => '[f][o][o][b][a][r]',
6 'ABCD' => '(?:ABCP|ABCG|ABCE|ABCB|ABCA|ABCD)',
9 my ($str,$pat)=splice @tests,0,2;
11 # string eval to get the free regex message in the right place.
13 warn "$str"=~/$pat/ ? "%MATCHED%" : "%FAILED%","\n";