my @rgb = map {hex($_) } unpack 'xa2a2a2', "#FF00FF";

print "(",join(',',@rgb),")\n";