my $record = REC->new( 
	map{
		s/#.*//;
		s/^\s+//;
		s/\s+$//;
		m/(.*?)\s*=\s*(.*)/;
	} read_file($file)
);