Help for this page

Select Code to Download

Select or download this

$ perl -wE 'q{Even more test address@test.com @20} =~ /[^@\n]*(?:\S@[^
+@\n]*)*/ and say $&'
Even more test address
$ perl -wE 'q{Even more test address@test.com @20} =~ /[^@\n]*(?:\S@[^
+@\n]*)+/ and say $&'
Even more test address@test.com

Select or download this
```
/[^\S\n]*(?:[^\s@]+@?[^\S\n]*)*/
```