Fetchind data from a file using perl
===

I have file as

    <country=HK>
    
    	TCN=1
    	CURR_TYPE="RS"
    	PRICE=10
    	COMP_NAME="IBM"
    
    	TCN=2
    	CURR_TYPE="RS"
    	PRICE=200
    	COMP_NAME="CTS"
    
    	TCN=3
    	CURR_TYPE="RS"
    	PRICE=50
    	COMP_NAME="TCS"
    
    
    endHK
    
    <country=JN>
    
    	TCN=1
    	CURR_TYPE="YEN"
    	PRICE=10
    	COMP_NAME="IBM"
    
    	TCN=2
    	CURR_TYPE="YEN"
    	PRICE=200
    	COMP_NAME="CTS"
    
    	TCN=3
    	CURR_TYPE="YEN"
    	PRICE=50
    	COMP_NAME="TCS"
    
    </country=JN>

now i want to retrieve the values from the members in above file using a perl script can you help me with that.
I am new to perl please help me out with it.