$ # Sonderzeichen und Verbindungslinien zur Verdeutlichung eingefügt
$ perl -MData::Dumper -e 'my @rgb = split /(\w{2})/, ".4C,4C-45"; print Dumper \@rgb;'
$VAR1 = [                                             |  |  |
          '.', ---------------------------------------/  |  |
          '4C',                                          |  |
          ',', ------------------------------------------/  |
          '4C',                                             |
          '-', ---------------------------------------------/
          '45'
        ];