Hi I think this may work for emails...:
$Full_Story =~ s,([^\s]+@[^\s]+\.[^\s]+),<a href="mailto:$1">$1</a>,sg;
...and for urls....
$Full_Story =~ s,(http://[\w\.-]+),<a href="$1">$1</a>,sg;
The code for checking the email address could just be .+@.+\..+ but that won't work in this case.
I can't believe how bad the code was in this thread after I re-read it this morning :) ...it was only from September too ....having said that the code above isn't great either.
$Full_Story =~ s,([^\s]+@[^\s]+\.[^\s]+),<a href="mailto:$1">$1</a>,sg;
...and for urls....
$Full_Story =~ s,(http://[\w\.-]+),<a href="$1">$1</a>,sg;
The code for checking the email address could just be .+@.+\..+ but that won't work in this case.
I can't believe how bad the code was in this thread after I re-read it this morning :) ...it was only from September too ....having said that the code above isn't great either.