Perl - конвертировать ASCII art для использования оператора x

Question

Я хотел бы преобразовать искусство ASCII во что-то, что занимает меньше байтов. У меня есть строка, как это:

my $string = '                ██   ████   █';

И я бы преобразовал это в нечто вроде этого:

print "█" x 1."█" x 1."█" x 1"█" x 1"█" x 1;

Так что я бы написал это в одну строку и преобразовал бы в x оператор. Как этого добиться?

Answer 1

print '                ██   ████   █' x 1;

Лично я бы выполнил только одно из ваших требований.

Однолинейная:

print '                ██   ████   █';

Использование x:

print(
   ' ' x 16, '█' x  2,
   ' ' x  3, '█' x  4,
   ' ' x  3, '█' x  1,
);