#! /usr/bin/perl -w
use strict;

while ( <> )
{
	 m/\#([0-9a-fA-F]{6})/i and print lc "$1\n";
}
<!-- Do _not_ attempt to edit this topic; it is auto-generated. Please add comments/questions/remarks to the Dev topic instead. -->
