Search and Replace Within a File - Perl Snippet