my $new_retid = $retid . ($retid =~ /_\d{3}\z/ ? '' : '_001');