head	1.1;
access;
symbols;
locks
	nobody:1.1; strict;
comment	@# @;


1.1
date	2004.08.28.22.57.01;	author ArthurClemens;	state Exp;
branches;
next	;


desc
@none
@


1.1
log
@none
@
text
@#! /usr/bin/perl -w
use strict;

while ( <> )
{
    m/\#([0-9a-fA-F]{6})/i and print lc "$1\n";
}
@