use strict;

$_ = "639D879F224CA2A1BA73CC4884DBD362";
my @hexdata = /(\w{2})/g;

my $str = join('', map { chr(hex $_) } @hexdata);
print "$str\n";