#!/usr/bin/perl
($s,$u)=qw;
7363616C617220676574686F737462796E616D652022245F2E6A6170682E24752E636F6D22
phroggy;;$s=~s;(..);chr hex $1;ge;print eval $s for(0..6);