Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $t1 = 'EV-1891';
...
(?msx-i: \A (?: EV\-DKL1|EV\-1891) \z )
name 'EV-1891' in set
name 'FOO' NOT in set