Select Code to Download

print pack"C*",map 2*("p"le$_&&$_ cmp"q")-$#++ord,eval{$SIG{__WARN__}=
+sub{die@_};open my$f,"<:x)",$^W++}||(lc$@)=~m, (.)(.)(.)(.),,0