...
my $file=~s/^([^_]+_)(.*)(\.\w{3})\z/$1.md5_hex($2).$3/eg;
...