Some comments on the latter half of translations:

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

That ^ makes no sense.

$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;
[download]

Ewww. This would be so much better as a tr///.

$data =~ tr/eEtTlLiIaAbBgGoO/3377111144889900/;
[download]

japhy -- Perl and Regex Hacker