my ($new_retid) = $retid =~ /_\d{3}$/ || "${retid}_001";