use warnings;
use strict;

while (<DATA>) {
    tr/-abcdef/9012345/;
    print substr($_, 0, 10);
    print "\n";
}

__DATA__
a81f9284-b353-430a-a8ce-85b8118d3f3e