my $db = 'webpage'l';
open(DATA, "$db") or die "File does not open: $!";
my @data = (<DATA>);
close (DATA);
open(DATA, ">$db") or die "File not open: $!";


foreach my $line (@data)
{
  $line =~ s?<A HREF="directory/file.doc">?<A HREF="http://www.mysite.com/directory/file.doc">?g;
  print DATA $line;
}