Perl splitting