I am trying to extract links along with HTML tags <a href=blah> from a list, 
but it's not working on my XP machine with Active State Perl 5.0.6
Kindly help.

################# CODE START ####################

my @array = qq|
<body><a href="http://www.mydomain.com";><img alt="Free Hosting, Freebies" 
border=0 src="http://www.mydomain.com/images/logo2.gif";></a>
|;
#extract LINKS (no image links) only <a href="http://www.mydomain.com";>

my @get = grep {/<a .*?>/} @array;
print "@get\n"

################### CODE END ###################

Thanks,

Sara.




Reply via email to