Select Code to Download

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];