You can make the email regex a bit nicer by using:
$Full_Story =~ s,(\S+@\S+\.\S+),<a href="mailto:$1">$1</a>,sg;
Cheers,
Alex
--
Gossamer Threads Inc.
$Full_Story =~ s,(\S+@\S+\.\S+),<a href="mailto:$1">$1</a>,sg;
Cheers,
Alex
--
Gossamer Threads Inc.