Split Command In Perl