Got it sorted...
my $tag = shift;
$tag =~ s/\n/<BR>\n/g;
$tag =~ s,\[(/?i)\],<$1>,g;
$tag =~ s,\[(/?b)\],<$1>,g;
$tag =~ s,(\w+@\w+\.\w+),<a href="mailto:$1">$1</a>,sg;
$tag =~ s,(https?://[\w\.-/]+),<a href="$1" target="_blank">$1</a>,sg;
$tag =~ s,\[([/\w]+)\],<$1>,g;
return $tag;
}
http://www.ameinfo.com
Code:
sub { my $tag = shift;
$tag =~ s/\n/<BR>\n/g;
$tag =~ s,\[(/?i)\],<$1>,g;
$tag =~ s,\[(/?b)\],<$1>,g;
$tag =~ s,(\w+@\w+\.\w+),<a href="mailto:$1">$1</a>,sg;
$tag =~ s,(https?://[\w\.-/]+),<a href="$1" target="_blank">$1</a>,sg;
$tag =~ s,\[([/\w]+)\],<$1>,g;
return $tag;
}
http://www.ameinfo.com