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
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).