как извлечь строки без html

[user171078]

как извлечь строки без html ,есть файл email.txt :
http://vk.com/login.php?regemail=inetgiant@mail.ru#Aakj1vKk

> http://www.inetgiant.com/Relist.aspx?adId=3088021&email=admin171078@gmail.com

</div><a href=3D"http://www.inetgiant.com/Relist.aspx?adId=3D3088021&amp;em=

ail=3Dadmin171078@gmail.com" target=3D"_blank">http://www.inetgiant.com/Rel=

> http://www.inetgiant.com/Relist.aspx?adId=3087995&email=admin171078@gmail.com

</div><a href=3D"http://www.inetgiant.com/Relist.aspx?adId=3D3087995&amp;em=

ail=3Dadmin171078@gmail.com" target=3D"_blank">http://www.inetgiant.com/Rel=

> http://www.inetgiant.com/Relist.aspx?adId=3087933&email=admin171078@gmail.com

</div><a href=3D"http://www.inetgiant.com/Relist.aspx?adId=3D3087933&amp;em=

ail=3Dadmin171078@gmail.com" target=3D"_blank">http://www.inetgiant.com/Rel=

надо получить:
http://www.inetgiant.com/Relist.aspx?adId=3088021&email=admin171078@gmail.com
http://www.inetgiant.com/Relist.aspx?adId=3087995&email=admin171078@gmail.com
http://www.inetgiant.com/Relist.aspx?adId=3087933&email=admin171078@gmail.com

мой код:
#!/usr/bin/perl use URI::Find; use LWP::Simple; use Email::Simple; $link=0; $i=0;$j=0; $stroka=0; @llines=(); @masive=(); open(SALES,"email.txt"); while ($line= <SALES>) { $massive[$i]=$line; $i++; } close SALES; print"printing counter\n"; print $i; print "-------------------------element-----------\n"; for($counter=0;$counter<=$i;$counter++) { if ($massive[$counter] =~m/Classified Reminder*/) {print " $counter \n ";} } for($counter2=0;$counter2<=$i;$counter2++,$j++) { if (($massive[$counter2] =~m/http*/) && ($massive[$counter2!=~m/a href*/]) ) {$link=" $massive[$counter2] ";print $link;print "\n";} }