/^PH(?:.{0,3}|.*(?![HI]-000).{5})$/ [download]
-sauoq "My two cents aren't worth a dime.";
In reply to Re: Re: old Perl regex problem by sauoq in thread old Perl regex problem by GhodMode