#!/usr/bin/perl -w
use strict;my@data=qw(4a 75 73 74 20 41 6e 6f 74 68 65 72 20 50 65
72 6c 20 48 61 63 6b 65 72);my$str="";my$l=@data;for(my$x=0;$x<$l;
$x++){$str.=chr(hex$data[$x]);}print$str;print"\n";
[download]

TStanley
In the end, there can be only one!