sub auto_url {
my $check = shift;
$check =~ s/(^|s)(http://S+)(.|,|))?/$1<a href="$2" target="_blank">$2</a>$3/isg;
$check =~ s/(^|s)(https://S+)(.|,|))?/$1<a href="$2" target="_blank">$2</a>$3/isg;
$check =~ s/(^|s)(ftp://S+)(.|,|))?/$1<a href="$2" target="_blank">$2</a>$3/isg;
$check =~ s/(^|s)(www.S+)(.|,|))?/$1<a href="http://$2" target="_blank">$2</a>$3/isg;
$check =~ s/<a href="(.+?)." target="_blank">(.+?).</a>/<a href="$1" target="_blank">$2</a>./si;
$check =~ s/(^|s)([^@[]+)@(S+).([a-z]{2,3})(.|,|))?/$1<a href="mailto:$2@$3.$4">$2@$3.$4</a>$5/si;
return ($check);
} # end auto_url