my $string = `uuidgen`;
$string =~ tr [\-abcdef] [9012345];
my $first_10 = substr($string, 0, 10);