If I download your code and try to run it, I get a compile error:

Unterminated <> operator
[download]

The following:

... and $orig_cnt=1)
[download]

is an assignment. It should probably be a numeric check (==):

... and $orig_cnt==1)
[download]

I also see that in two other places in your code.

Other advice:

• use strict and warnings
• perlcritic is a tool which can help you make your code more robust.