my @colors = qw/ cyan megantha yellow pink Red Green blue cyan megantha yellow orange /;
my $font = 'Euclid fraktur';
print "<br><br><H1 align='center'><b>";
foreach my $letter ( split //, 'PERL MODULES' ){
  do { print $letter; next; } if $letter = ' ';    # special case of space
  printf "<font face='%s' color='%s'>%s</font>", $font, $colors[0], $letter;
  push @colors, shift @colors;                     # rotate the colors
}
print "</b></H1>";