Select Code to Download

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

$data =~ s/e/3/gi;
$data =~ s/t/7/gi;
...
$data =~ s/b/8/gi;
$data =~ s/g/9/gi;
$data =~ s/o/0/gi;

$data =~ tr/eEtTlLiIaAbBgGoO/3377111144889900/;