Select Code to Download

#!/usr/bin/perl

...
  $em =~ s/\w{2}\K(\w*)/ $1 =~ tr!!.!cr /ge;
  print "$em\n";
  }

someone@example.co.uk - so.....@ex......co.uk
andrew.test@some.company.co.uk - an.....te..@so...co......co.uk
jo@abc.com - jo@ab..co.