$data =~ s/e/3/gi;
$data =~ s/t/7/gi;
$data =~ s/(l|i)/1/gi;
$data =~ s/a/4/gi;
$data =~ s/b/8/gi;
$data =~ s/g/9/gi;
$data =~ s/o/0/gi;