Select Code to Download

my $rindex = rindex($imagename,'.');
$rindex    = length($imagename) if $rindex == -1;
substr($imagename,0,$rindex) =~ s/\W/_/g;

substr($file,0,rindex($file,'.')%length"a$file") =~ s/\W/_/g;