Secure your and your clients'/friend's privacy with XY!
Code: Select all
$a = <clipboard>;
status "Please wait: retrieving info...", BF0000, progress;
$a = regexreplace($a, "(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,3})", "private mail");
copytext $a;
text $a;
status "Info ready in clipboard, too!";