my $word = substr($file[3], 6, 3);
# The third argument to substr is the length of the string