in reply to Re: Re: old Perl regex problemin thread old Perl regex problem
You seem to be changing your requirements over time. This makes it hard to be helpful. As things stand now, I suggest:
/^PH.*(?:[^I][^H]|I[^HF])-000$/ [download]