in reply to Regex AND

You could try joining the individual regexes with the boolean operator 
$myvar =~ /^(?!CX36(5|6))/ && $myvar =~ /^(?!JA30[0-2])/ && ...

[download]


PJ
use strict; use warnings; use diagnostics;

In Section Seekers of Perl Wisdom