#! /usr/bin/perl -w use strict; my @colours; while ( <> ) { chomp; push @colours, $_; } print qq{\n}; foreach my $colour ( @colours ) { print "\n"; print qq{\n"; print "\n"; } print "
}; print $colour; print "
\n";