my @words = split(/\s/,$file[3]);

##</code><code>##

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