Hi every body,
I am new to perl I want to get the first level p tags from the following data can any one help me to do this.

$content='<body><p> one<p>one-one</p> <a>h</a> </p> <p> two </p><p>three</p></body>';


Thanks in advance