How To Split A String Using Regex In Perl