Perl Script - How to modify