Help for this page

Select Code to Download


  1. or download this
    while(<DATA>){
    my $orig = $_;
...
john.foo@there.com
foo@there.com.au
<a href="mailto:foo@there.com">Mr Foo</a>
  2. or download this
    < foo@there.com
> bar@here.com
...

< <a href="mailto:foo@there.com">Mr Foo</a>
> <a href="mailto:bar@here.com">Mr Foo</a>
  3. or download this
    s{([a-zA-Z_\.]+\@[a-zA-Zz\.\-]+)}
 {$1 eq $old ? $new : $1}ge