On Mar 31, Ramprasad A Padmanabhan said:
$str = "[EMAIL PROTECTED]";
Should become
[EMAIL PROTECTED]
I'd use index() and substr():
if ((my $p = index($str, '@')) > -1) { substr($str, $p) =~ tr/_/./ }
--
Jeff "japhy" Pinyan % How can we ever be the sold short or
RPI Acacia Brother #734 % the cheated, we who for every service
http://japhy.perlmonk.org/ % have long ago been overpaid?
http://www.perlmonks.org/ % -- Meister Eckhart
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
