my $newcontent = _translateLinks2($initcontent);
#
sub _translateLinks2 {
my $content = shift;
my @all = split(/ /,$content);
my $skip = 0;
my @trans;
for my $a (@all) {
# print "{ $a }\n";
if ($a =~ m#$a);
}
elsif ($a =~ m#(\n|\r)$#) {
$a =~ s/\n|\r//gis;
$a = qq($a\n);
}
else {
$a = qq($a);
}
}
elsif ($skip == 0 && $a =~ m#\w+\.com|\w+\.net|\w+\.org|\w+\.gov#i) {
if ($a =~ m#^(\n|\r)#) {
$a =~ s/\n|\r//gis;
$a = qq(\nhttp://$a);
}
elsif ($a =~ m#(\n|\r)$#) {
$a =~ s/\n|\r//gis;
$a = qq(http://$a\n);
}
else {
$a = qq(http://$a);
}
}
# print "[[ $a ]]\n";
if ($a =~ m#<\/a>#i) {
$skip = 0;
}
push (@trans,$a);
}
my $translated = join (' ',@trans);
return $translated;
}