my @split = $data =~ /\G(M|T|W|Th|F|Sa|Su|\d)/g;