For one thing I'm not sure what $z31eu, $z21eu, and $z11eu contain, and I also don't know that your regexen are actually matching what you expect them to.

At any rate, I would start lacing your program's logic with prints to see which step fails, and then look at the contents of the suspect variables at that point to see why your logic is failing.