#!/usr/bin/perl -w
use strict;
my$c=q|M33,S+%,K)2Q+*3)1*RHS*3$J4DA3*C,D2BA$420J0RA$,S,A)#`S*$HP4E$D
M+$0L02DC,%(L)$A4-$4D1`I-*R0T22PR1$,L)2Q+*21!,"TD-$0Q8$DM*E(T
M5#(R4%(Q)"Q8*3)!+"HR,2$L(E!%*B0P53@D1$TJ12A0"DTR(RA2-"4H42DR
M42DJ,BQ1*R)(4BPS)$PH13$D*S(T1#,S0$0Q)%1*,3)1+")$5%,H4D$R+"(T
M2#4R1$(*330S0$HL4D1!*E0I*#1"4%,I)$Q(,3,D12I%*%`T(S$C,"0P42DE
M,2HL,RDA+"(I)#4E*$@T1"12*R,H4`I-,R,L0C0R*"HS,V!3*21(3#1$,2$J
M12Q)*B,Q(C4E+$DI)$$L+#(P1#$R23(J)3!1*%)1(RPB,%`T(E$T"DTT,DA,
M+%)$02I"*$DI(S1%*B1`5#$R,3(J4C!(-&!)+2Q2+$@T0S!2*B)(4RQ6(3,J
M,C$H,R,Q)2DD)$H*33$C,2DJ0BQ1+$,P12HD1$DI,R1,*R,L2#$C)%(R,C1*
M*3,A-"HE+%$H4EA"+"5@5"A%)$,B1%1,+$1!+`I-*C(I,2@R3$(J)$1(,%)!
M)2XB,3`U,R$B+#(L2C1"02PM(R$H-2)00BLE)$@P4C$R*T(I*#(S,30H,C!,
G"CHP0R$H+2(I)2A"1%8X)$`J*B,D0BDV8$XI0B1(+B8A*#A@2&`*|;
my$p=q^$a=10;$c=unpack'u',q|x|;if($a==1){print$c;}else{$a--;$p=
~s|\$a=(\d+)|\$a=$a|;$p=~s!'u',q\|(.*?)\|!'u',q\|$c\|!s;eval$p;}^;
$p=~s!'u',q\|(.*?)\|!'u',q\|$c\|!;eval$p;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
