Select Code to Download

my @COLORS = qw( white red blue green yellow );
return exists $COLORS[$i] ? $COLORS[$i] : $COLORS[0];

return $i < 5    ? 'red'
     : $i < 20   ? 'blue'
     : $i%3 == 0 ? 'green'
     : $i%5 == 0 ? 'yellow'
     :             'white';

print "This is my very long string that I wish to print out to display
+ my message on the screen but only when I want it too!" 
    if $i == 1;
...
die "Illegal value: $rotifer\n"
  if $rotifer =~ /^is not ok$/;