while ($text =~ /(href|<frame .*?src)[ ="']+(.*?)["'>]/g) {
    print $2;
}

##</code><code>##

while ($text =~ /(href|<frame .*?src)[ ="']+((http:)?[^:]*?)["'>]/g) {
    print $2;
}