$S="95a96596396896f92797392d93197397492094f942946955";
$S=~s/9/%/g|$S=~s/%(..)/pack("c",hex($1))/ge|print"$S\n\a\n";