my %dicionario = ( "A" => [ ******* * * ******* * * * * * * ], "B" => [ #... etc. ## REGEX... foreach my $letra ( $texto =~/(\S)/g ) { foreach my $linea (0...5) { ## ACÁ PONDRÍAS EL COLOR NUEVO $imprimir[$linea] .= $diccionario{$letra}[$linea]; ## ACÁ PONDRÍAS EL FINAL DEL COLOR NUEVO } }