while (<DATA>)
{
	chomp;
	my $line = $_;
	if ($line =~ m/^Width[\s]*\=[\s]*\d+$/)
	{
		printf "Found width: \"%s\"\n", $line;
	}
	elsif ($line =~ m/^Descr[\s]*-[\s]*[\w]+$/)
	{
		printf "Found descr: \"%s\"\n", $line;
	}
	else
	{
		printf "Garbage found: \"%s\" \n",$line;
	}
}

__DATA__
Width = 32
<uart0_rx_data : 16'h0000>
Descr - "This is Register1 comment"
# f_name    bit_pos            
RESERVED    31:8    
RXDATA        5:0        
</uart0_rx_data>