#!/usr/bin/perl -w
use strict;my$data="4a75737420416e6f74686572205065726c204861636b6572";my$l=length$data;my$str="";for(my$x=0;$x<$l;$x+=2){$str=substr($data,$x,2); print(chr(hex$str));}print"\n";