Escriba un programa para encontrar el valor de 11111111111111*111111111111111, utilizando el conocimiento de matrices

mi @map1 = qw(

.........OXXXX..........

... ....XXXXXXXXXX......

.....XXXXX1111XXXX....

....XXX1111111111XX....

...XX111111111111XXO...

...XX1111111111111XX...

..XX11111111111111XXO.

..XX1111111111111111XX.

.XX111111111111111XX.

.XX1111111111111111XX.

.XX1111111111111111XXO

.XX1111111111111111XXO

.XX1111111 111XXO

. Xx111111111111111111xx.

.Oxx11111111111111111xx.

..xx111111111111111xx.

... xx11111111111111111xx ..

... xx111111111xxo ..

....XX111111111111XX...

.....XXX1111111XXXX....

...XXXXXXXXXXXO....

.....XXXXXXXO.....

.................... ...);

@map1 = mapa {[split //]} @map1;

mi @map2 = qw(

.... .....XXXXX. .........

.....X111X1XX1X......

.....X1111X111X11X ....

....XX1X1111111111X....

...X1X11111111X1111X...

...1XX1XX11X1X111111...

..X1X1111X1111111111XX .

..11X11XXXX11X1111111X.

XXX111111X11111111111X

.XX11X1111111X1X111111X

.X11111X1111X111111111X

.X1 1111XX1111111X1X11X.

.XX1X111X11X111X11X11X.

.. ..X1XX1111X1111XXX...

.....XX1111111XX11X....

....X11XXX11XX1X... .

.......11XXX1XX.......

.................... .....);

@map2 = mapa {[split //]} @map2;

para mi $m (0 .. $#map2) {

para mi $n ( 0 .. $#{$map2[$m]}) {

if ($map2[$m][$n] =~ /X|O / o $map1[$m][$ n] =~ /X|O/) {

print 'X'

} else {

imprimir '1';

}

}

imprimir "\n";