(my $new_retid = $retid) =~ s/(?<!_\d{3})$/_001/;