You need to enclose the regex match you're looking for in parentheses to assign it to a variable that way. For example:

my ($new_retid) = $retid =~ /(^\d{4}_\d{3})$/;
$new_retid ||= $retid.'_001';
[download]