#!/usr/bin/perl -w 
use strict;

my @colors = ( 'baby blue',  'baby pink',
               'dark blue',  'dark purple',
               'hot pink',   'light purple',
               'wild green', 'crazy yellow',
               'wild crazy purple', 'deep purple');               
               
foreach (@colors)
{
   print getColorAbreviation($_),"\n";
}

# The translation algorithm appears to be straight-
# forward, so a table independent translation is
# possible ... Of course 'dark purple' and 'deep purple'
# would translate into the same thing, but maybe that is
# ok? This is application dependent.
               
sub getColorAbreviation
{
   my $color = shift;  #like: 'wild crazy purple'
   
   $color = uc $color;
   my @FirstCaps = $color =~ /(\w)\w+/g;
   
   return @FirstCaps;  #like: WCP
}

__END__
BB
BP
DB
DP
HP
LP
WG
CY
WCP
DP