I suggest you re read the existing responses you have, explaining why your code doesn't do what you think it should. That's an ancient version of perl and there's a reason why nobody writes code like this (client side perlscript) anymore.