c:\@Work\Perl>perl -wMstrict -le
"my $dataToCheck = 'The Rain in Spain Falls';
 ;;
 (my $h1 = $dataToCheck) =~ s/(.)/sprintf('%X',ord($1))/eg;
 my $h2 = uc unpack 'H*', $dataToCheck;
 ;;
 print qq{'$dataToCheck' -> '$h1'};
 print qq{'$dataToCheck' -> '$h2'};
 ;;
 die 'not the same' unless $h1 eq $h2;
"
'The Rain in Spain Falls' -> '546865205261696E20696E20537061696E2046616C6C73'
'The Rain in Spain Falls' -> '546865205261696E20696E20537061696E2046616C6C73'