No need to slurp it all into memory. Use something like (untested):

use strict;
use warnings;

my $word = quotemeta "color: ";
while (<>) {
    print "Found '$1'\n" while /$word(\w+)/g;  # Find all.
}
__END__
[download]

Abigail