I would use a negative look ahead: my @arr = split /\s(?!\w+')/, $string;