Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $second = ( $rgb & 0x00ff00 ) >> 8;
my $third = ( $rgb & 0x0000ff );
print " ( $first , $second , $third )";

C:\Code>perl rgbshift.pl 0xff00ff
 ( 255 , 0 , 255 )