Perl Split String Into Array Of Engineers