my $IMAGE = <<END:
0000000000000000000000
0000000001111100000000
0000000001111100000000
0000000001111100000000
0000000001111100000000
0000011111111111110000
0000011111111111110000
0000011111111111110000
0000011111111111110000
0000000001111100000000
0000000001111100000000
0000000001111100000000
0000000001111100000000
0000000000000000000000
END

sub transpose {
    my @matrix = map [ split // ], split /\n/, shift;
    my $dim    = $#{ $matrix[0] };

    @matrix = map { my $x=$_; [ map { $matrix[$_][$x] } 0..$#matrix ] }
              0..$dim;
    return join "", map { join("", @$_) . "\n" } @matrix;
}

sub squish {
    my $str = shift;
    $str =~ s/^(.*\n)\1+/$1/gm;
    return $str;
}

print transpose squish transpose squish $IMAGE;

__OUTPUT__
00000
00100
01110
00100
00000