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