my %new_names;

$file =~ s{^\s+description\s\K(\w\w\w\w)(?=-\w+-\w+;)}{ 
	my $name = $1;

	if (!$new_names{$name}) {
		$name = $new_names{$name} = my_rand();
	}
	
	$name
}gme;