Here's the shortest version i could come up with:

while gets
	puts "Reading in #{$_.chomp}:"
	$_.split(/:/).each{ |element|
		( element =~ /^[\da-fA-F]{2}$/ ) or puts "\tFound bad element
#{element}" } end

=)

Zach