Perl, split and regexes are weird...