$data =~ s/ss^\b/ran("55","\$\$","\$\$")/gie;

##</code><code>##

$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;

##</code><code>##

$data =~ tr/eEtTlLiIaAbBgGoO/3377111144889900/;