Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

s{([^@]+@)[^.]+}{${1}something}g;
print qq{$_\n};
  2. or download this
    aaa@z.com bbb@z.com ccc@z.com
aaa@something.com bbb@something.com ccc@something.com