Tweaking perl script again