Perl - convert ASCII art to use x operator

Question

I would like to convert ASCII art to something that takes less bytes. I have string like this:

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

And I would convert this to something like this:

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

So I would write this in one line and convert to using x operator. How can achieve this?