Replace String Using Regex In Perl