my $word = "color: ";
my $lineno = 0;
while (<STDIN>) {
    $lineno++;
    if (m#$word(\w+)#) {
# $1 should now contain the color
    }
}

##</code><code>##

if (m#$word(\w+)#o) {