daniel@navi ~ $ cat bin/win.pl
#!/usr/bin/perl
$_="P;=N?;MA:LB:M\@;N><HA?3RC4RBFB\@EE>C?5CB>9A?>K;CJ7HI4?69J3<:9J39<9K39<9K3::;J49;?E59<AA59A>?76G8\@";$o='.';
s/(.)/for($i=0;$i<ord($1)-50;$i++){print$o;$l++;}if($o eq'.'){$o='x'}else{$o='.'}if($l>=50){print"\n"; $l=0;$o='.'}/ge;
daniel@navi ~ $ bin/win.pl
..............................xxxxxxxxx...........
............................xxxxxxxxxxxxx.........
...........................xxxxxxxxxxxxxxx........
..........................xxxxxxxxxxxxxxxx........
...........................xxxxxxxxxxxxxx.........
............................xxxxxxxxxxxx..........
......................xxxxxxxxxxxxxxx.............
.xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.................
..xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx................
....................xxxxxxxxxxxxxxxx..............
...................xxxxxxxxxxxxxxxxxxx............
.................xxxxxxxxxxxxx...xxxxxxxxxxxxxxxxx
................xxxxxxxxxxxx.......xxxxxxxxxxxxxxx
.............xxxxxxxxxxxx.........................
.........xxxxxxxxxxxxxxxxx........................
.....xxxxxxxxxxxxxxxxxxxxxx.......................
..xxxxxxxxxxxxx....xxxxxxx........................
.xxxxxxxxxx........xxxxxxx........................
.xxxxxxx..........xxxxxxx.........................
.xxxxxxx..........xxxxxxx.........................
.xxxxxxxx........xxxxxxxxx........................
..xxxxxxx.........xxxxxxxxxxxxx...................
...xxxxxxx..........xxxxxxxxxxxxxxx...............
...xxxxxxx...............xxxxxxxxxxxx.............
.....xxxx.....................xxxxxx..............