my $new_retid = $retid.("_001","")[0+$retid=~/_\d{3}/];