open(FILE, "<file.htm")
@file = <FILE>;
close(FILE);

@check_links = ('href="', 'src="');

@new_file = grep { foreach $item (@check_links) {
  map($_ . "../"; if ($item =~ /$_/, @page)
} #end_foreach#
} #end_grep#

print @new_file;


##</code><code>##

foo
<a href="home.htm"><img src="image.gif"></a>
foo

##</code><code>##

foo
<a href="../home.htm"><img src="../image.gif"></a>
foo