...
open(MYINPUTFILE, "<$load_file"); # open for input
while (my $line = <MYINPUTFILE>) # loop thru list
 {
chomp $line;
my ($hash, $JPG) = ($line =~ m!/([^/]+)/([^/]+)$!) or die;
...