배열의 지식을 이용하여 11111111111111*111111111111111의 값을 구하는 프로그램을 작성하세요.

my @map1 = qw(

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

... . ...XXXXXXXXX......

.....XXXXX1111XXXX....

....XXX1111111111XX....

...XX111111111111XXO...

...XX1111111111111XX...

..XX11111111111111XXO.

..XX111111111111111XX.

.XX111111111111111XX.

.XX1111111111111111XX.

.XX111111111111111XXO

.XX111111111111111XXO

.XX1111111 1111111XXO

. XX1111111111111111XX .

.OXX111111111111111XX.

..XX1111111111111111XX.

...XX11111111111111XX..

1XXO..

....XX111111111111XX...

.....XXX1111111XXXX....

...XXXXXXXXXXXO....

..........XXXXXXXO.....

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

@map1 = 지도 {[split //]} @map1;

my @map2 = qw(

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

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

.....X1111X111X11X. /p>

....XX1X1111111111X....

...X1X11111111X1111X...

...1XX1XX11X1X111111...

..X1X1111X1111111111XX.

..11X11XXXX11X1111111X.

.XXX111111X11111111111X

.XX11X1111111X1X111111X

.X1111 1X1111X111111111X

. X11111XX1111111X1X11X.

..X1X111111X1X1X1XX11X.

...11111111111111XX11..

....1X111X11X11111XXX..

....X1XX1111X1111XXX...

.....XX1111111XX11X....

.... ..X11XXX11XX1X.....

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

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

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

for my $m (0 .. $ #map2) {

for my $n (0 .. $#{$map2[$m]}) {

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

'X' 인쇄;

} else {

'1' 인쇄;

}

}

"\n" 인쇄;

}