Split Operator In Perl