my $hex = 'E1B4FF';
	my $evalcode = '$hex = 0x'.$hex;
	eval $evalcode;
        #print $hex . "\n";#14791935
	my $x1 = (($hex >> 16) & 0xFF);
	my $x2 = (($hex >> 8) & 0xFF);
	my $x3 = ($hex & 0xFF);
print $x1 . $x2 . $x3 . "\n";