Help for this page
my $md5 = md5_hex( do{ local( @ARGV, $/) = $file; <> } );
my $file = 'joe_34455667.jpg'; my $md5 = md5_hex( do{ local( @ARGV, $/) = $file; <> } ); $file =~ s[_(\d+)\.jpg$][_$md5.jpg];