while (<>) {
    chomp;
    my @values = (m/
        (.)              # One character
        (?!\1)           # not followed by that character
        (?=.)            # but followed by a character
    /gx);
    print join(",", @values), "\n";
}