$_=q(I;1";::;;h,':;: ""'.g,1;. ;2;;1:g;3::5f;5 6f5::6:f:2:',;6'f':: '7:h'; :5"k''"""'l.l1l1 .K1K. '1..H1H,;1'a'2;.F1G;2:b:3.E1F;2:b'3;E1E:3:c4.D1E4:b:4:D1E4:b:4:D1D:4:b:5D1D;4:b'5;C1C,5:c:5.B1C;5'd:4;B1B:5"e'4B1B:4"f':2B1 ,3:'h"": 1 :""'),s#[a-l]# \U$&#g,s#\w#M x$&|$"x(-64+ord$&)#eg,print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).