my $x = 30:30:3a:31:64:3a:69:2d:6f; #in hex
my $x =~ tr/://d;
my $y = hex_to_ascii("$x");
print "$y\n"; #in ascii

##</code><code>##

my $y = pack ('C*', split/\:/, $x);