Select Code to Download

sub substitute{
     my $s = shift;
     $s =~ s[\{\\d(\d+)\}][ substr int( 1e10 + rand 1e10 ), 1, $1 ]ge;
     return $s
}

A message 031 of 9150
A message 963 of 0677
...
A message 718 of 7972
A message 834 of 8521
A message 064 of 1745