my $hex = 'E1B4FF';
my ($x1,$x2,$x3)=map{ hex }( $hex=~/(..)/g );
print $x1 . $x2 . $x3 . "\n";