use YAPE::HTML; 
use strict; 
  
# assume $content is the variable holding the HTML 
my $content; 
my $parser = YAPE::HTML->new($content); 
  
open OUT, ">new_file.html" or die "can't create new_file.html: $!"; 
while (my $chunk = $parser->next) { 
  if ( 
    $chunk->type('tag') and 
    $chunk->tag('a') and 
    $chunk->attr('href') 
  ) { 
    my $url = $chunk->attr('href'); 
    $url = "http://www.website.com" . $url if $url =~ m!^/!; 
    $chunk->setattr(href => $url); 
  } 
  print OUT $chunk->string; 
} 
close OUT; 
  
die "problem: ", $parser->error unless $parser->done;