#!/bin/perl -w
use strict;

my $server = "http://www.foo.com";
my $path   = "/absolute/path/";
while( <DATA>)
  { s{<\s*a\s*href=(['"])(.*?)\1\s*>([^<]*)</a>}
     { build_link( $2, $3) }seg;                             # hand out the updating to a subroutine
    print;
  }

sub build_link                                               # here we can play with the href attribute
  { my( $href, $text)= @_;
    if( $href=~ m{^(http|telnet|gopher|file|wais|ftp)://})
      { return qq{<a href="$href">$text</a>}; }
    elsif( $href=~ m{^/})
      { return qq{<a href="$server$href">$text</a>}; }
    else
      { return qq{<a href="$server$path$href">$text</a>}; }
  }

__DATA__
<a href="/absolute/no/dns">absolute with no dns</a>
<a href="http://absolute.with/dns.html">http://absolute.with/dns.html</a>
<a href="relative/without/dns.html">relative/without/dns.html</a>
<a href="relative2/without/dns.html">relative2 without dns.html</a>
<a href="relative/without/dns.html">relative/without/dns.html</a>
<a name="toto">toto</a>