my $new_retid = $retid . ($retid !~ /_\d{3}$/ and '_001');