$text =~ s#src=\"(.*?)\"#&resolveimg($1)#sige;
$text =~ s#href\=\"(.*?)\"#&resolvehref($1)#sige;

##</code><code>##

$text =~ s#(?:img.*?src|link.*?href)\=\"(.*?)\"#&resolveimg($1)#sige;
$text =~ s#(?:a.*?href)\=\"(.*?)\"#&resolvehref($1)#sige;
##</code><code>##

               $text =~ s#(\bimg\b[^<>]*src|\blink\b[^<>]*href)\=\"(.*?)\"#$1 . "=\"" . &resolveimg($2) . "\""#sige;
                $text =~ s#(?:\ba\b[^<>]*href)\=\"(.*?)\"#&resolvehref($1)#sige;