in reply to old Perl regex problem

limited testing... 

while(<>) {
    chomp and print if /^PH.*$/ and !/[HI]-000$/;
}

[download]

In Section Seekers of Perl Wisdom