My first JAPH. 
#!/usr/bin/perl -w
undef$/;$_=<DATA>;s+\s++g;s$(8|0)$ $g;@_=split;for(0..$#__){undef$__}f
+or(0..$#_)
{if(!(length($_[$_])-1)){$__[$_[$_]]=$_;}}if(!(shift @__)){for(@__){pr
+int chr;}}
__DATA__
85586967614334                  0032453043574636                599933
+2330526173
62821583623411                  1173462495026886                646789
+2547408318
89794307322962                  3911592652435243                238138
+3215474732
08853829285445                  0758529400771526                587199
+3836016082
       9133980                  4521        1262                      
+  05491114
       0228418                  1929   12   9340                      
+  75249419
       8268438                  2746   34   7417                      
+  72034592
       1189654                  8438        2985                      
+  47943938
       7989184                  6594942741680576                359662
+5115665025
       9520668                  9406574530353550                942696
+5011011185
       7363954                  7769538132458069                546196
+5534784548
       5404671                  4875016508776268                648125
+7599081492
       7824842                  7252        6284                654921
+73
       0213124                  4752   56   4843                021069
+45
       8316459                  7316   78   2423                780225
+88
       1471236                  9018        3178                333874
+23
5132382302969830                3251863465853443                378857
+7095311153
2224389777766721                1587511761923753                065556
+4308572805
3466202304202404                2914589463732445                157849
+6395620205
6424427725515478                3531949393432917                336867
+6826453788

5123480975304076112656432722844412746776539345130754536523339695185926
+4036281274
8318561199022354125332614246399470123302423269587157320059495182346280
+8494370032
3069004754876024061427822340635124657965354231564579651324564796544313
+5462135447

[download]
For an reason why 182 is my favorite number, it is because it is the ceiling(sqrt(the largest signed int on a 16 bit system))which somehow became my standard error code for my subroutines when I was learning C(long, long, ago).

In reply to My favorite number perled by jclovs

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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, details, 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, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.