Select Code to Download

my $posn = -1;
my $same = 1;
...

print 'Prefix is "', substr($files[0], 0, $posn), '"';

# UNTESTED

...
}

print "prefix: '",substr($file[0],1,$len-1), "'\n";