While we're busy doing silly pack/unpack strings:

$str = '#FE00FD';
$str =~ tr/0-9a-fA-F//cd;  # remove non-hex characters
my @rgb = unpack 'C*', pack 'H*', $str;  # pack hex as 3 bytes, unpack
+ into list of 3 character codes
$" = ","; $\ = "\n";
print "(@rgb)";
[download]

Result:

(254,0,253)
[download]