#!/usr/bin/perl -w # cooking with perl
use strict;
{$_.=<DATA>;redo if !eof(DATA); }s/[ \n3A-Z]//g;s
/000/032/g; my @z = split //; for (my $i=0;$i<24;
$i++) { $_[@_] = "$z[@_*3]$z[@_*3+1]$z[@_*3+2]" }
my $z; map $z .= chr($_),@_; $_ = $z."\n"; print;
__END__
303 X373X343
X313 X313X373X31
3X313X353X313X313X3
63X303X303X 303X3
03X393X373X3 13X3
1 3X 303X313X3 1 3X31
3X 313X313X36 3X31
3X303X343
X313X303X313X313X313X343X303X303X303
X303X383X303X313X303X313X313X313X343X
313X303X383X303X303X303X303X373X323X30
3X393X373X303X393X393X313X303X373X313X3
03X313X313X313X343X33X33X33X33X33X3
3X33X33X33X33X33X33X33X33X33X33X
X33X33X33X33X33X33X33X33X33X33
X33X33X33X33X33X 33X33X33X3
3X33X3 3X33X33X33
X33X 33X 33X33
X33 X33 X33X
33 X3 3X
33 X3 3X
33 X3 3X
33 X3 3X
33X 33X 33
Zenon Zabinski | zdog | Zenon.Zabinski03@students.bcp.org
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Outside of code tags, you may need to use entities for some characters:
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|
