This might work in perl assuming that $newurl is the results of the extraction and $oldurl is the original line
I didnt test it but if it dosnt work let me know and I will check into it for you
$newurl = substr ($oldurl,index(lc($oldurl),"http://"),(index($oldurl,"\">") - index(lc($url),"http://"))
Brian
[email protected]