Few more perl tweaks