Select Code to Download

foreach my $file (@files){
                my @arr=split(/\//,$file);
                print "\n $arr[2];";
}

my $length_arr=length($arr[2]);
my $fname=sub($arr[2],0,($length_arr-4));
print $fname;