Select Code to Download

$trimmedcolr = $colr;
$trimmedcolr = 'BB' if $colr eq 'baby blue';
...
$trimmedcolr = 'DP' if $colr eq 'dark purple';
$trimmedcolr = 'HP' if $colr eq 'hot pink';
$trimmedcolr = 'LP' if $colr eq 'light purple';

#!/usr/bin/perl -w 
use strict;
...
CY
WCP
DP