my @split = $data =~ /\G(M|T|W|Th|F|Sa|Su|\d)/g; Th must come before T in the alternations for this to work properly. One way to write it: my @split = $data =~ /\G(Th|Sa|Su|[MTWF]|\d)/g;