إخفاء معلومات التعريف لـ Tcl

package require mask_pii 0.2.0

set masker [::mask_pii::Masker new]
$masker mask_emails
$masker mask_phones
$masker with_mask_char "#"

set input "Contact: alice@example.com or 090-1234-5678."
set output [$masker process $input]
puts $output

$masker destroy
// Expected output: "Contact: a####@example.com or ###-####-5678."