#!/usr/bin/perl

use strict;

my $string = q{
  An email address is foo-master@bar.com, but
  this http://foo@bar.com/ and
  this ftp://foo:baz@bar.com/ are
  not emails.
};

my $desired_output = q{
  An email address is <A HREF="mailto:foo-master@bar.com">foo-master@bar.com"</A>, but
  this <A HREF="http://foo@bar.com/">http://foo@bar.com/</A> and
  this <A HREF="ftp://foo:baz@bar.com/">ftp://foo:baz@bar.com/</A> are
  not emails.
};

foreach($string){

     # make http or ftp hyperlinks first
     s#((ht|f)tp://[\S]+)#<A HREF="$1">$1</A>#isg;

     # now make email addresses hyperlinks
     # but don't "email-ify" http or ftp URIs

     s#((?<!tp://)[a-z0-9\-\_\.]+\@[a-z0-9\-]+(\.[a-z0-9\-]+)+)#<A HREF="mailto:$&">$&</A>#isg;

     if( m#(?<!tp://)[a-z0-9\-\_\.]+\@[a-z0-9\-]+(\.[a-z0-9\-]+)+#isg){
         print "Yes, it matches ($&).\n";
     }else{
         print "It does not match.\n";
     }

     print;

}


##</code><code>##

Yes, it matches (foo-master@bar.com).

  An email address is <A HREF="mailto:foo-master@bar.com">foo-master@bar.com</A>, but
  this <A HREF="http://f<A HREF="mailto:oo@bar.com">oo@bar.com</A>/">http://f<A HREF="mailto:oo@bar.com">oo@bar.com</A>/</A> and
  this <A HREF="ftp://foo:<A HREF="mailto:baz@bar.com">baz@bar.com</A>/">ftp://foo:<A HREF="mailto:baz@bar.com">baz@bar.com</A>/</A> are
  not emails.