$filetext =~ m/(    [\w\-._+]+   #first part of email address
                    \@[\w\-.]+   #second part
                    .{0,5}       #any char/separator
                )   {50}/sgmx