You're reading a "line" at a time into $_. Where line is everything up to '.END\n'. Then you overright $_ with the match in the regex. Then you assign it to $word. Then you attempt to loop through an undefined @_ assigning each value to $word. So your second and third regexes are never reached.

Or did I miss something?

---

Matthew Musgrove
Who says that programmers can't work in the Marketing Department?
Or is that who says that Marketing people can't program?