#! / usr / bin / perl
undef $ /; $ s = <DATA>;
foreach (split //, $ s) {$ b. = $ _ eq'D '|| 0if / [OD] /; print pack ("b8", $ b) and $ b =' 'if length $ b> = 8;}
__DATA__
RROORR
ORRDORRRRODRRRR
ODRRRRROOOORDRDRRROOROROR
....... RRRODDDRRORRRROOORRRRRODDDORRDROO
............... RRDDRDDROROOOOODROROORRRRROOODRRRRRRDDR
.................... RORRORDRORRRODDDRORDRRRRDDRRRRDORRRRRDDODDD
........................ RRROORDDORRORDRORODRRRRDRRDRODOROROOD DRRO
..................... RDODDODDORRDODDRRRRRRRRORRRDDORDRORDORRORDRRR
................... RRRDRORRODRRROODRRRRRDDORRRRRRDDRRRRRROODRDRDO
................. ROOORORODRROROORRRORRDRROORRRDRRRDRRRORDRRORRROO
................ ODRRRRRDRORRDRRROODDDDORODRDDRRRRRODORRRRORRRROOORO
.............. RRRODRRRRRROOORDRRRROOOODRRRRODODRROORDRRDRORRDDORRRR
............ ORRDDRRRRRDROROORDODRRDDOOOROORORDRORROORDORRRRRRORDDRD
.......... RODORDRRORRODDRORRRDRDDORRRRODDODOORROORRDDOORRRRRDRRRORR
......... ODRDRRDROORRRRRORRDOORRRRDRDORRDDOODDDOOORORORRRRRODORROOR
............. RDRDRORRRORDRDRORRRODRROORDRRRDRDRRODDDRRDORRRDDORDOR
............. DDORRDRDOORROROOODROORRRRODRRRORORDRRODRODORDRRRORORR
............. RRRODORDRRRRRRDRDROORRRRORDRRROORDRDRDRDRDRORRRRORODO
........... RRORDRRORRRDRRORDODORRDRODRROODDDRRODROORROOOOORRDRRRR
........... RRORRORDDOORDRORDRRRRRRROOORRRORRODDDRRRRRR RORDROR
........... DOODRRRRRDORDDOOORDRDODRRORRRRODRRORD RRDROR
........... RRRRRDRORRRORRROODDROORORDRDRORRDRDO OORROR
.......... OODROORRDRRDRRRDRRORORRDDRORRODOODDDO DRRORD
.......... ORRODRRRRRDORRRDRORDRORODDOORRRORDRR ODRRDR
.......... RDORRRDORORRDODDRRORRRRRODRRRDDRRRRR RODDRO
.......... DDRDORRRRORDRDRORROROOORORDRRORRRRRR ORRROR
........ DRRRRDROORRDRRDODDRDRRRRRRDORRRDRDOOR RDRORR
........ RRORDDRDOORORROORRODRROROROOORDRORRD DRRRRR
........ RORDOOROODDRORRRRODRRRRORRRROODDORRO RDORRR
........ ORRRRDDDRRORRRRDRROOORRODRRDRROROOOR RRRRDO
........ DRRRDRRRODRRRRORROORRRRRRORDDRROODOR OORRRR
....... RRRRDDRROORRRDRRORRODRRDRRRRDRORORRO RRRRRR
....... RRROORRRORRDORORDRODODRDRDRRRORDRRRR
....... DRORRORDRRDRDRORRRDODRRRRRRORRODDOOR
...... RRDRORRRRODDRRDORDDROORDDRRDRRRDRDRR
...... RRRORRDOORORRRORRRRRRRRRRRRRRRRR
..... RRRRRRRRRRRRRRRRRRRRRRRRRRRR
..... RRRRRRRRRRRRRRRRRRRRR
..... RRRRRRRRRRRRRRR
... RRRRRRRRR
..RRRR
Source: https://habr.com/ru/post/128334/
All Articles