Perl Parse String Into Array