How to say: match this..."UNTIL..." in RegExp

[Jimmy S. Lim]

hi all! thanks in advance, can anybody help me translate english to perl? :o)   i would like to write in perl language:   if (m/Blk\.*\s*\d{3}.*(?!E\d{3}-*\d{4})/i)   i want to tell Perl this in english: " find Blk followed by a period or a space, followed by 3 digits, and followed by any character or characters along the way UNTIL (then stop) you find an E with 3 digits plus a - or w/o a - followed by 4 digits, then return the match.   but i still get return of everything. Perl seems to ignore my ?! negative look ahead. is this because of the * i have? how do i solve this?   jimmy