print eval'use bigint;1'.unpack(w,'\xb4\xe7\xe1\xc4\xec\x83\x95\xdf\xee\x99\xea\xa2\x85\xae\x81\xb2\xa2\xd7\xa5\xa0\xd9\xc2\xc4\xdf\x99\xac\xca\x88\x99\xb3\xbc\x9c\xf6\xc7\xc0\xd8\x80\xb0\x95\x80\xe8\xf1\xf6\xc3\xca\xb8\xe5\xca\xf9\xf9\xea\x8e\xc3\xdd\x8b\xb3\xff\xd2\xba\xa2=')=~s/./0while~-grep$p%$_<1,2..++$p;"*$p"x$&/ger
Note that non-ascii characters in the above source code will be escaped (such as \x9f).