my $hex = 'E1B4FF';
my ($x1,$x2,$x3)=unpack('C3', pack( 'H6', $hex ) );
print $x1 . $x2 . $x3 . "\n";