Substitution using regular expressions and mechanize

[coder57]

Basically I have a local html file, called file1.html it has a series of links (with a particular domain name) in addition to the html code, I am trying to follow each of these links (based on the regular expression /on\.fe/) each of these links, in their content have a link to another page, (I would like to capture this particular page based on a regular expression /www\.arax/), and substitute for each link (with regular expression /on\.fe/)in file1.html with their corresponding link (with regular expression/www\.arax/) So far this is what I have come up with, and am a little stuck

#! perl\bin\perl

use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

open(FILE, "< file1.html") || print "Unable to open the file file1 \n"
+;

while (<FILE>)
{
if($_ =~ /on\.fe/)
{
my $url = $_;
print $mech->uri."\n";
$mech->get($_);
$mech->content();
if($mech->content()=~ /www\.arax/)
{
my $url2 = $mech->content() =~ /www\.arax/;
print $mech->uri."\n";
s/$url/$url2/;
print;

}

}

}


close(FILE);

[GunnarH]

You are multi-posting.
http://groups.google.com/group/comp....9efeabf5d61fb1

Please read here why that is bad:
http://lipas.uwasa.fi/~ts/http/crospost.html