s/^([^_]+_)(.*)(\.\w{3,4})\z$/$3/;

##</code><code>##

warn "Couldn't rename $temp_f_name to $renamed_file, $!\n";

##</code><code>##

print "About to rename $temp_f_name to $renamed_file\n";