Perl Language Split a string on unquoted separators