Select Code to Download

$user->{'email'} =~ s/([\w|\.][\w|\.])[\w|\.]+\@(\w\w[\w|\.])[\w|\.]+\
+.([\w|\.]+)/\1...@\2.....\3/;